[gforth] / gforth / extend.fs  

gforth: gforth/extend.fs

Diff for /gforth/extend.fs between version 1.4 and 1.6

version 1.4, Thu Jul 21 10:52:39 1994 UTC version 1.6, Wed Aug 31 19:42:45 1994 UTC
Line 14 
Line 14 
   (constant) , ;    (constant) , ;
 \ !! 2value  \ !! 2value
   
 : 2>r   postpone swap postpone >r postpone >r ; immediate restrict  
 : 2r>   postpone r> postpone r> postpone swap ; immediate restrict  
 : 2r@   postpone 2r> postpone 2dup postpone 2>r ; immediate restrict  
   
 : 2Literal  swap postpone Literal  postpone Literal ;  : 2Literal  swap postpone Literal  postpone Literal ;
   immediate restrict    immediate restrict
   
Line 79 
Line 75 
 \ ROLL                                                  17may93jaw  \ ROLL                                                  17may93jaw
   
 : roll  dup 1+ pick >r  : roll  dup 1+ pick >r
         cells sp@ 2 cells + dup cell+ rot move drop r> ;          cells sp@ cell+ dup cell+ rot move drop r> ;
   
 \ SOURCE-ID SAVE-INPUT RESTORE-INPUT                    11jun93jaw  \ SOURCE-ID SAVE-INPUT RESTORE-INPUT                    11jun93jaw
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help