Tweak what EBNF words are private

db4
Chris Double 2009-10-19 18:14:13 +13:00
parent 040a4e732a
commit 06a70fd3c6
1 changed files with 2 additions and 2 deletions

View File

@ -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* ;