![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to extend.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to extend.fs CVS log | Up to [gforth] / gforth |
| version 1.2, 1994/04/20 17:12:02 | 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 |