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

version 1.4, 1994/07/21 10:52:39 version 1.6, 1994/08/31 19:42:45
Line 14  decimal Line 14  decimal
   (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  decimal Line 75  decimal
 \ 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
   

Removed from v.1.4  
changed lines
  Added in v.1.6


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>