parser: make sure lines is an array.

2012-07-27 19:06:22 -07:00 · 2012-07-27 19:06:22 -07:00 · c1269bc8a3
parent 391420eab0
commit c1269bc8a3
1 changed files with 1 additions and 1 deletions
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@ -128,7 +128,7 @@ M: f parse-quotation \ ] parse-until >quotation ;
    [ f parse-until >quotation ] with-lexer ;

 : parse-lines ( lines -- quot )
-    <lexer> (parse-lines) ;
+    >array <lexer> (parse-lines) ;

 : parse-literal ( accum end quot -- accum )
    [ parse-until ] dip call suffix! ; inline