gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.69, 2004/12/08 11:26:59	version 1.70, 2004/12/29 14:15:12
Line 192 has? OS [IF]	Line 192 has? OS [IF]
postpone lit A,	postpone lit A,
[ [THEN] ] ; immediate restrict	[ [THEN] ] ; immediate restrict

	Defer char@ ( addr u -- char addr' u' )
	:noname over c@ -rot 1 /string ; IS char@

: char ( '<spaces>ccc' -- c ) \ core	: char ( '<spaces>ccc' -- c ) \ core
\G Skip leading spaces. Parse the string @i{ccc} and return @i{c}, the	\G Skip leading spaces. Parse the string @i{ccc} and return @i{c}, the
\G display code representing the first character of @i{ccc}.	\G display code representing the first character of @i{ccc}.
bl word char+ c@ ;	bl word count char@ 2drop ;

: [char] ( compilation '<spaces>ccc' -- ; run-time -- c ) \ core bracket-char	: [char] ( compilation '<spaces>ccc' -- ; run-time -- c ) \ core bracket-char
\G Compilation: skip leading spaces. Parse the string	\G Compilation: skip leading spaces. Parse the string