Updating code for make and fry changes

[factor.git] / basis / state-parser / state-parser.factor

diff --git a/basis/state-parser/state-parser.factor b/basis/state-parser/state-parser.factor
index 15c83bf73afd2fea16abf25ddd573f56c88826be..dab5414b49ec18d0b7e80ce7b72b7d0696913a13 100644 (file)
--- a/basis/state-parser/state-parser.factor
+++ b/basis/state-parser/state-parser.factor
@@ -100,7 +100,7 @@ SYMBOL: prolog-data
     #! from code until the quotation given is true and\r
     #! advance spot to after the substring.\r
     10 <sbuf> [\r
-        '[ @ [ t ] [ get-char , push f ] if ] skip-until\r
+        '[ @ [ t ] [ get-char _ push f ] if ] skip-until\r
     ] keep >string ; inline\r
 \r
 : take-rest ( -- string )\r
@@ -120,7 +120,7 @@ M: not-enough-characters summary ( obj -- str )
 \r
 : take ( n -- string )\r
     [ 1- ] [ <sbuf> ] bi [\r
-        '[ drop get-char [ next , push f ] [ t ] if* ] contains? drop\r
+        '[ drop get-char [ next _ push f ] [ t ] if* ] contains? drop\r
     ] keep get-char [ over push ] when* >string ;\r
 \r
 : pass-blank ( -- )\r