regexp: need this to be (parse-raw).

[factor.git] / basis / regexp / regexp.factor

diff --git a/basis/regexp/regexp.factor b/basis/regexp/regexp.factor
index 96867381ee3e264c2ff8e738f7727d38becdedb1..d50909ba2b165e6da28e628f58af1b6236c14a48 100644 (file)
--- a/basis/regexp/regexp.factor
+++ b/basis/regexp/regexp.factor
@@ -208,7 +208,7 @@ PRIVATE>
     ] change-lexer-column ;
 
 : parse-noblank-token ( lexer -- str/f )
-    dup still-parsing-line? [ (parse-token) ] [ drop f ] if ;
+    dup still-parsing-line? [ (parse-raw) ] [ drop f ] if ;
 
 : parse-regexp ( accum -- accum )
     lexer get [ take-until ] [ parse-noblank-token ] bi