Fix parser-combinators load issue
							parent
							
								
									84076184dd
								
							
						
					
					
						commit
						30731a5808
					
				| 
						 | 
					@ -13,11 +13,11 @@ M: promise (parse) ( input parser -- list )
 | 
				
			||||||
: parse ( input parser -- promise )
 | 
					: parse ( input parser -- promise )
 | 
				
			||||||
  (parse) ;
 | 
					  (parse) ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					TUPLE: parse-result parsed unparsed ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: parse-1 ( input parser -- result )
 | 
					: parse-1 ( input parser -- result )
 | 
				
			||||||
  parse car parse-result-parsed ;
 | 
					  parse car parse-result-parsed ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
TUPLE: parse-result parsed unparsed ;
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
C: <parse-result> parse-result
 | 
					C: <parse-result> parse-result
 | 
				
			||||||
 | 
					
 | 
				
			||||||
TUPLE: token-parser string ;
 | 
					TUPLE: token-parser string ;
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue