version 1.19, 1997/01/04 16:32:28
|
version 1.20, 1997/02/06 21:23:00
|
Line 160 decimal
|
Line 160 decimal
|
>in ! |
>in ! |
false ; |
false ; |
|
|
\ : save-input ( -- x1 .. xn n ) \ core-ext |
|
\ >in @ |
|
\ loadfile @ ?dup |
|
\ IF dup file-position throw sourceline# >tib @ 6 |
|
\ #tib @ >tib +! |
|
\ ELSE sourceline# blk @ linestart @ >tib @ 5 THEN |
|
\ ; |
|
|
|
\ : restore-input ( x1 .. xn n -- flag ) \ core-ext |
|
\ swap >tib ! |
|
\ 6 = IF loadline ! rot dup loadfile ! |
|
\ reposition-file IF drop true EXIT THEN |
|
\ ELSE linestart ! blk ! |
|
\ dup sourceline# <> IF 2drop true EXIT THEN |
|
\ loadline ! |
|
\ THEN |
|
\ >in ! false ; |
|
|
|
|
|
|
|
\ This things we don't need, but for being complete... jaw |
\ This things we don't need, but for being complete... jaw |
|
|
\ EXPECT SPAN 17may93jaw |
\ EXPECT SPAN 17may93jaw |