gforth/kernel/recognizer.fs - diff

Return to recognizer.fs CVS log

Up to [gforth] / gforth / kernel

version 1.5, 2011/10/05 21:09:05	version 1.6, 2011/10/05 21:17:09
Line 81 num-recognizer int-recognizer 2 forth-re	Line 81 num-recognizer int-recognizer 2 forth-re
cell +LOOP	cell +LOOP
r:fail ;	r:fail ;

	\ nested recognizer helper

	: r:table>flag ( table -- table true \| false )
	dup r:fail <> dup 0= IF nip THEN ;

	\ : nest-recognizer ( addr u -- token table true \| addr u false )
	\ xxx-recognizer do-recognizer r:table>flag ;

: interpreter-r ( addr u -- ... xt )	: interpreter-r ( addr u -- ... xt )
forth-recognizer do-recognizer r>int @ ;	forth-recognizer do-recognizer r>int @ ;