From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 31 Mar 2016 04:24:43 +0000 (-0700)
Subject: regexp: need this to be (parse-raw).
X-Git-Tag: unmaintained~1299
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=be8c711d3efe07b686f835959aed1cae5634e928

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

diff --git a/basis/regexp/regexp.factor b/basis/regexp/regexp.factor
index 96867381ee..d50909ba2b 100644
--- 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