gforth/kernel/vars.fs - diff

Return to vars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.47, 2007/12/31 18:40:26	version 1.49, 2011/11/16 01:25:58
Line 45 has? floating [IF]	Line 45 has? floating [IF]
\G @i{c-char} is the character value for a space.	\G @i{c-char} is the character value for a space.
\ used by docon:, must be constant	\ used by docon:, must be constant

has? EC [IF] 40 [ELSE] FF [THEN] Constant /line	has? EC [IF] 20 cells [ELSE] FF [THEN] Constant /line

has? file [IF]	has? file [IF]
40 Constant c/l	40 Constant c/l
Line 199 AUser dpp normal-dp dpp !	Line 199 AUser dpp normal-dp dpp !
\ the pointer to the current dictionary pointer	\ the pointer to the current dictionary pointer
\ ist reset to normal-dp on (doerror)	\ ist reset to normal-dp on (doerror)
\ (i.e. any throw caught by quit)	\ (i.e. any throw caught by quit)
AUser LastCFA	has? ec [IF]
	AUser LastCFA
	[THEN]
AUser Last	AUser Last

has? flash [IF]	has? flash [IF]