version 1.34, 1999/03/29 22:52:28
|
version 1.35, 1999/05/21 20:35:35
|
Line 154 decimal
|
Line 154 decimal
|
: restore-input ( xn .. x1 n -- flag ) \ core-ext |
: restore-input ( xn .. x1 n -- flag ) \ core-ext |
\G Attempt to restore the input source specification to the state |
\G Attempt to restore the input source specification to the state |
\G described by the @var{n} entries @var{xn - x1}. @var{flag} is |
\G described by the @var{n} entries @var{xn - x1}. @var{flag} is |
\G true if the restore fails. |
\G true if the restore fails. In Gforth it fails pretty often |
|
\G (and sometimes with a @code{throw}). |
6 <> -12 and throw |
6 <> -12 and throw |
source-id <> -12 and throw |
source-id <> -12 and throw |
>tib ! |
>tib ! |