gforth/kernel.fs - diff

Return to kernel.fs CVS log

Up to [gforth] / gforth

version 1.7, 1996/10/03 16:05:35	version 1.8, 1996/11/22 17:41:36
Line 1359 Defer key ( -- c ) \ core	Line 1359 Defer key ( -- c ) \ core
1 loadline +!	1 loadline +!
swap #tib ! 0 >in ! ;	swap #tib ! 0 >in ! ;

: Query ( -- ) \ core-ext	: query ( -- ) \ core-ext
\G obsolescent	\G obsolescent
loadfile off blk off refill drop ;	tib /line accept #tib ! 0 >in ! ;

\ File specifiers 11jun93jaw	\ File specifiers 11jun93jaw

Line 1615 create image-included-files 1 , A, ( po	Line 1615 create image-included-files 1 , A, ( po
Defer 'quit	Defer 'quit
Defer .status	Defer .status
: prompt state @ IF ." compiled" EXIT THEN ." ok" ;	: prompt state @ IF ." compiled" EXIT THEN ." ok" ;
: (quit) BEGIN .status cr query interpret prompt AGAIN ;	: (Query) ( -- )
	loadfile off blk off refill drop ;
	: (quit) BEGIN .status cr (query) interpret prompt AGAIN ;
' (quit) IS 'quit	' (quit) IS 'quit

\ DOERROR (DOERROR) 13jun93jaw	\ DOERROR (DOERROR) 13jun93jaw