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