peg.ebnf gives better stack effects

2009-03-16 03:29:04 -05:00 · 2009-03-16 03:29:04 -05:00 · f1197fe327
parent 8936408df6
commit f1197fe327
1 changed files with 1 additions and 1 deletions
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@ -530,7 +530,7 @@ M: ebnf-non-terminal (transform) ( ast -- parser )

 : EBNF: 
  reset-tokenizer CREATE-WORD dup ";EBNF" parse-multiline-string  
-  ebnf>quot swapd 1 1 <effect> define-declared "ebnf-parser" set-word-prop 
+  ebnf>quot swapd (( input -- ast )) define-declared "ebnf-parser" set-word-prop 
  reset-tokenizer ; parsing