Diff for /gforth/regexp-test.fs between versions 1.21 and 1.22

version 1.21, 2010/12/27 22:39:38 version 1.22, 2010/12/28 23:16:02
Line 211  charclass [*/] '* +char '/ +char Line 211  charclass [*/] '* +char '/ +char
 : underflow3  ( -- )  : underflow3  ( -- )
    ((     ((
       =" /*"        =" /*"
       \( {** {{ [*] -c? || ` * [*/] -c? }}  **} \)        \( {** {{ [*] -c? || ` * [*/] -c? }} **} \)
       {++ ` * ++} ` /        {++ ` * ++} ` /
    )) ;     )) ;
   
 \ this still seems to be too complicated  \ this still seems to be too complicated
 T{ s" /*10203030203030404*/   " underflow3 -> true }T  T{ s" /*10203030203030404*/   " underflow3 .s -> true }T
 \1 type cr  \1 type cr
   
 : underflow4  ( -- )  : underflow4  ( -- )

Removed from v.1.21  
changed lines
  Added in v.1.22


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