Diff for /gforth/extend.fs between versions 1.1 and 1.3

version 1.1, 1994/02/11 16:30:46 version 1.3, 1994/05/07 14:55:48
Line 10  decimal Line 10  decimal
   
 \ VALUE 2>R 2R> 2R@                                     17may93jaw  \ VALUE 2>R 2R> 2R@                                     17may93jaw
   
 : value ( n -- )  (constant) , ;  : value ( n -- )
     (constant) , ;
   \ !! 2value
   
 : 2>r   postpone >r postpone >r ; immediate restrict  : 2>r   postpone >r postpone >r ; immediate restrict
 : 2r>   postpone r> postpone r> ; immediate restrict  : 2r>   postpone r> postpone r> ; immediate restrict
 : 2r@   postpone 2r> postpone 2dup postpone 2>r ; immediate restrict  : 2r@   postpone 2r> postpone 2dup postpone 2>r ; immediate restrict
   
   : 2Literal  swap postpone Literal  postpone Literal ;
     immediate restrict
   
 \ CASE OF ENDOF ENDCASE                                 17may93jaw  \ CASE OF ENDOF ENDCASE                                 17may93jaw
   
 \ just as described in dpANS5  \ just as described in dpANS5
Line 64  decimal Line 69  decimal
   
 \ ERASE                                                 17may93jaw  \ ERASE                                                 17may93jaw
   
 : erase 0 1 chars um/mod nip 0 fill ;  : erase ( 0 1 chars um/mod nip )  0 fill ;
   : blank ( 0 1 chars um/mod nip ) bl fill ;
   
 \ ROLL                                                  17may93jaw  \ ROLL                                                  17may93jaw
   

Removed from v.1.1  
changed lines
  Added in v.1.3


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