|
version 1.14, 2000/02/04 14:52:30
|
version 1.15, 2000/04/27 08:51:33
|
|
Line 147 here 1+ head? throw
|
Line 147 here 1+ head? throw
|
| : foo [compile] exit abort" '[compile] exit' broken" ; |
: foo [compile] exit abort" '[compile] exit' broken" ; |
| foo |
foo |
| |
|
| |
\ restore-input |
| |
|
| |
: test-restore-input[ ( -- ) |
| |
refill 0= abort" refill failed" |
| |
bl word drop |
| |
save-input |
| |
refill 0= abort" refill failed" |
| |
-1 ; |
| |
|
| |
: ]test-restore-input ( -- ) |
| |
drop restore-input abort" restore-input failed" 0 ; |
| |
|
| |
\ First input is skipped until the "]test-restore-input", then it is |
| |
\ reset to just before "0 [if]" |
| |
test-restore-input[ abort \ these aborts are skipped |
| |
abort 0 [if] |
| |
s" oops" 2drop ]test-restore-input abort |
| |
[then] |
| |
( 0 ) throw |
| |
|
| \ comments across several lines |
\ comments across several lines |
| |
|
| ( fjklfjlas;d |
( fjklfjlas;d |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to other.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / test