Tweak what EBNF words are private
							parent
							
								
									040a4e732a
								
							
						
					
					
						commit
						06a70fd3c6
					
				| 
						 | 
				
			
			@ -10,14 +10,14 @@ FROM: compiler.units => with-compilation-unit ;
 | 
			
		|||
FROM: vocabs.parser => search ;
 | 
			
		||||
IN: peg.ebnf
 | 
			
		||||
 | 
			
		||||
<PRIVATE
 | 
			
		||||
 | 
			
		||||
: rule ( name word -- parser )
 | 
			
		||||
  #! Given an EBNF word produced from EBNF: return the EBNF rule
 | 
			
		||||
  "ebnf-parser" word-prop at ;
 | 
			
		||||
 | 
			
		||||
ERROR: no-rule rule parser ;
 | 
			
		||||
 | 
			
		||||
<PRIVATE
 | 
			
		||||
 | 
			
		||||
: lookup-rule ( rule parser -- rule' )
 | 
			
		||||
    2dup rule [ 2nip ] [ no-rule ] if* ; 
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue