|
version 1.21, 1997/02/09 21:51:39
|
version 1.22, 1997/03/19 18:27:12
|
|
Line 121 decimal
|
Line 121 decimal
|
| |
|
| \ SOURCE-ID SAVE-INPUT RESTORE-INPUT 11jun93jaw |
\ SOURCE-ID SAVE-INPUT RESTORE-INPUT 11jun93jaw |
| |
|
| : source-id ( -- 0 | -1 | fileid ) \ core-ext source-i-d |
: source-id ( -- 0 | -1 | fileid ) \ core-ext,file source-i-d |
| loadfile @ dup 0= IF drop sourceline# 0 min THEN ; |
loadfile @ dup 0= IF drop sourceline# 0 min THEN ; |
| |
|
| : save-input ( -- x1 .. xn n ) \ core-ext |
: save-input ( -- x1 .. xn n ) \ core-ext |
![[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