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