![]() ![]() | ![]() |
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 ; |