gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.16, 1997/12/01 21:15:03	version 1.17, 1998/10/14 22:23:12
Line 201 Create prefix-found 0 , 0 ,	Line 201 Create prefix-found 0 , 0 ,
: search-prefix ( addr1 len1 -- addr2 len2 )	: search-prefix ( addr1 len1 -- addr2 len2 )
0 vp dup @ 1- cells over +	0 vp dup @ 1- cells over +
DO I 2@ <>	DO I 2@ <>
IF I cell+ @ @ swap search-voc THEN	IF I cell+ @ wordlist-id @ swap search-voc THEN
[ -1 cells ] Literal +LOOP	[ -1 cells ] Literal +LOOP
prefix-string ;	prefix-string ;