regexp: Fix / escape in regexp. Fixes validators test.

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

diff --git a/basis/regexp/regexp.factor b/basis/regexp/regexp.factor
index d50909ba2b165e6da28e628f58af1b6236c14a48..ff383b272b6990ca7a15ed6b7177c5f274eb081e 100644 (file)
--- a/basis/regexp/regexp.factor
+++ b/basis/regexp/regexp.factor
@@ -211,7 +211,7 @@ PRIVATE>
     dup still-parsing-line? [ (parse-raw) ] [ drop f ] if ;
 
 : parse-regexp ( accum -- accum )
-    lexer get [ take-until ] [ parse-noblank-token ] bi
+    lexer get [ take-until "\\/" "/" replace ] [ parse-noblank-token ] bi
     <optioned-regexp> compile-next-match suffix! ;
 
 PRIVATE>