gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

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 !