peg: make check-action inline.

diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index 9da44893ac3ba66f75b0fad1ceb60311f105a82e..44c04f0f2ef9805a162db801de2bc2d7d501b502 100644 (file)
--- a/basis/peg/peg.factor
+++ b/basis/peg/peg.factor
@@ -461,7 +461,7 @@ M: ensure-not-parser (compile)
 TUPLE: action-parser parser quot ;
 
 : check-action ( result quot -- result )
-    dupd '[ [ _ call( ast -- ast ) ] change-ast ] when ;
+    dupd '[ _ change-ast ] when ; inline
 
 M: action-parser (compile)
     [ parser>> compile-parser-quot ] [ quot>> ] bi