Diff for /gforth/history.fs between versions 1.34 and 1.35

version 1.34, 2004/12/26 20:32:02 version 1.35, 2004/12/27 20:05:53
Line 185  Create prefix-found  0 , 0 , Line 185  Create prefix-found  0 , 0 ,
     REPEAT      REPEAT
     drop r> ;      drop r> ;
   
   : prefix-off ( -- )  0 0 prefix-found 2! ;
   
 : prefix-string ( addr len nfa -- addr' len' )  : prefix-string ( addr len nfa -- addr' len' )
     dup prefix-found !  ?dup      dup prefix-found !  ?dup
     IF      IF
         name>string rot /string rot drop          name>string rot /string rot drop
         dup 1+ prefix-found cell+ !          dup 1+ prefix-found cell+ !
     ELSE      ELSE
         2drop s" " prefix-found cell+ off          2drop s" " prefix-off
     THEN ;      THEN ;
   
 : search-prefix  ( addr1 len1 -- addr2 len2 )  : search-prefix  ( addr1 len1 -- addr2 len2 )

Removed from v.1.34  
changed lines
  Added in v.1.35


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>