gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.52, 2003/01/20 17:07:37	version 1.54, 2003/01/31 22:45:11
Line 118 decimal	Line 118 decimal
begin	begin
dup r@ >=	dup r@ >=
while	while
over 2r@ swap -text 0= if	2dup 2r@ string-prefix? if
2swap 2drop 2r> 2drop true exit	2swap 2drop 2r> 2drop true exit
endif	endif
1 /string	1 /string
Line 266 variable span ( -- c-addr ) \ core-ext	Line 266 variable span ( -- c-addr ) \ core-ext
drop	drop
\ restore udp and dp	\ restore udp and dp
[IFDEF] forget-dyncode	[IFDEF] forget-dyncode
dup cell+ @ forget-dyncode 0= abort" gforth bug"	dup cell+ @ forget-dyncode drop
[THEN]	[THEN]
@ udp ! dp !	@ udp ! dp !
\ clean up vocabulary stack	\ clean up vocabulary stack