gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.8, 1995/01/30 18:47:45	version 1.9, 1995/04/20 09:42:50
Line 120 decimal	Line 120 decimal
variable span	variable span

: expect ( c-addr +len -- )	: expect ( c-addr +len -- )
0 rot over	0 rot over
BEGIN key decode >r 2over = r> or UNTIL	BEGIN ( maxlen span c-addr pos1 )
2drop nip span ! ;	key decode ( maxlen span c-addr pos2 flag )
	>r 2over = r> or
	UNTIL
	type-rest drop
	2drop nip span ! ;