X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fregexp%2Fcompiler%2Fcompiler.factor;h=d8940bb829a3afc70848194901b8a795d36d8999;hp=548273486589cfbcbcc22a96a020be4c4542fd1b;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/basis/regexp/compiler/compiler.factor b/basis/regexp/compiler/compiler.factor index 5482734865..d8940bb829 100644 --- a/basis/regexp/compiler/compiler.factor +++ b/basis/regexp/compiler/compiler.factor @@ -35,13 +35,13 @@ M: $ question>quot drop [ { [ length = ] [ ?nth "\r\n" member? ] } 2|| ] ; M: ^ question>quot - drop [ { [ drop zero? ] [ [ 1- ] dip ?nth "\r\n" member? ] } 2|| ] ; + drop [ { [ drop zero? ] [ [ 1 - ] dip ?nth "\r\n" member? ] } 2|| ] ; M: $unix question>quot drop [ { [ length = ] [ ?nth CHAR: \n = ] } 2|| ] ; M: ^unix question>quot - drop [ { [ drop zero? ] [ [ 1- ] dip ?nth CHAR: \n = ] } 2|| ] ; + drop [ { [ drop zero? ] [ [ 1 - ] dip ?nth CHAR: \n = ] } 2|| ] ; M: word-break question>quot drop [ word-break-at? ] ;