Return to stuff.fs CVS log | Up to [gforth] / gforth |
version 1.30, 2003/02/03 08:59:29 | version 1.32, 2003/03/22 10:04:07 |
---|---|
Line 1 | Line 1 |
\ miscelleneous words | \ miscelleneous words |
\ Copyright (C) 1996,1997,1998,2000 Free Software Foundation, Inc. | \ Copyright (C) 1996,1997,1998,2000,2003 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
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 |