parser: make sure lines is an array.
parent
391420eab0
commit
c1269bc8a3
|
@ -128,7 +128,7 @@ M: f parse-quotation \ ] parse-until >quotation ;
|
||||||
[ f parse-until >quotation ] with-lexer ;
|
[ f parse-until >quotation ] with-lexer ;
|
||||||
|
|
||||||
: parse-lines ( lines -- quot )
|
: parse-lines ( lines -- quot )
|
||||||
<lexer> (parse-lines) ;
|
>array <lexer> (parse-lines) ;
|
||||||
|
|
||||||
: parse-literal ( accum end quot -- accum )
|
: parse-literal ( accum end quot -- accum )
|
||||||
[ parse-until ] dip call suffix! ; inline
|
[ parse-until ] dip call suffix! ; inline
|
||||||
|
|
Loading…
Reference in New Issue