Simpler 'union' parser
							parent
							
								
									1fbfc88b90
								
							
						
					
					
						commit
						12ff0614e6
					
				| 
						 | 
				
			
			@ -173,9 +173,7 @@ C: <group-result> group-result
 | 
			
		|||
: 'simple' 'term' 'repetition' 'interval' <|> <|> ;
 | 
			
		||||
 | 
			
		||||
LAZY: 'union' ( -- parser )
 | 
			
		||||
    'simple'
 | 
			
		||||
    'simple' "|" token nonempty-list-of [ <or-parser> ] <@
 | 
			
		||||
    <|> ;
 | 
			
		||||
    'simple' "|" token nonempty-list-of [ <or-parser> ] <@ ;
 | 
			
		||||
 | 
			
		||||
LAZY: 'regexp' ( -- parser )
 | 
			
		||||
    'repetition' 'union' <|> ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue