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