steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/peg/ebnf/ebnf.factor
View File

@ -10,14 +10,14 @@ FROM: compiler.units => with-compilation-unit ;
FROM: vocabs.parser => search ; FROM: vocabs.parser => search ;
IN: peg.ebnf IN: peg.ebnf
<PRIVATE
: rule ( name word -- parser ) : rule ( name word -- parser )
#! Given an EBNF word produced from EBNF: return the EBNF rule #! Given an EBNF word produced from EBNF: return the EBNF rule
"ebnf-parser" word-prop at ; "ebnf-parser" word-prop at ;
ERROR: no-rule rule parser ; ERROR: no-rule rule parser ;
<PRIVATE
: lookup-rule ( rule parser -- rule' ) : lookup-rule ( rule parser -- rule' )
2dup rule [ 2nip ] [ no-rule ] if* ; 2dup rule [ 2nip ] [ no-rule ] if* ;