![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to stuff.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to stuff.fs CVS log | Up to [gforth] / gforth |
| version 1.31, 2003/03/09 15:16:56 | version 1.32, 2003/03/22 10:04:07 |
|---|---|
| Line 106 AUser CSP | Line 106 AUser CSP |
| POSTPONE (const-does>) | POSTPONE (const-does>) |
| POSTPONE ; | POSTPONE ; |
| noname : POSTPONE rdrop | noname : POSTPONE rdrop |
| lastxt r> cell+ ! \ patch the literal | latestxt r> cell+ ! \ patch the literal |
| ; immediate | ; immediate |
| \ !! rewrite slurp-file using slurp-fid | \ !! rewrite slurp-file using slurp-fid |