Diff for /gforth/history.fs between versions 1.29 and 1.30

version 1.29, 2002/09/14 08:20:19 version 1.30, 2003/01/26 20:56:37
Line 146  Create lfpad #lf c, Line 146  Create lfpad #lf c,
   
 Create prefix-found  0 , 0 ,  Create prefix-found  0 , 0 ,
   
   : sgn ( n -- -1/0/1 )
    dup 0= IF EXIT THEN  0< 2* 1+ ;
   
   : capscomp  ( c_addr1 u c_addr2 -- n )
    swap bounds
    ?DO  dup c@ I c@ <>
        IF  dup c@ toupper I c@ toupper =
        ELSE  true  THEN  WHILE  1+  LOOP  drop 0
    ELSE  c@ toupper I c@ toupper - unloop  THEN  sgn ;
   
 : word-lex ( nfa1 nfa2 -- -1/0/1 )  : word-lex ( nfa1 nfa2 -- -1/0/1 )
     dup 0=      dup 0=
     IF      IF

Removed from v.1.29  
changed lines
  Added in v.1.30


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