peg.ebnf: simplify M\ ebnf-non-terminal (transform) with fry.

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index 2e1cd7e64c650e64ff80054912dde79dd05ebac0..f05b1ab3c0689f630e79072b4bb7ed64ddf43fb9 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -512,10 +512,8 @@ M: ebnf-foreign (transform)
 ERROR: parser-not-found name ;
 
 M: ebnf-non-terminal (transform)
-    symbol>> [
-        , \ dup , parser get , \ at ,
-        [ parser-not-found ] , \ unless* , \ nip ,
-    ] [ ] make box ;
+    symbol>> parser get
+    '[ _ dup _ at [ parser-not-found ] unless* nip ] box ;
 
 : transform-ebnf ( string -- object )
     ebnf-parser parse transform ;