]> gitweb.factorcode.org Git - factor.git/commitdiff
Tweak what EBNF words are private
authorChris Double <chris.double@double.co.nz>
Mon, 19 Oct 2009 05:14:13 +0000 (18:14 +1300)
committerChris Double <chris.double@double.co.nz>
Mon, 19 Oct 2009 05:14:13 +0000 (18:14 +1300)
basis/peg/ebnf/ebnf.factor

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