over push -> suffix!, over push-all -> append!

[factor.git] / basis / peg / parsers / parsers.factor

diff --git a/basis/peg/parsers/parsers.factor b/basis/peg/parsers/parsers.factor
index 850b585190646384904f7ec17f1785f7c593dc61..c8a8080f38f4ac9df3ded6272bd4f30093913ca3 100644 (file)
--- a/basis/peg/parsers/parsers.factor
+++ b/basis/peg/parsers/parsers.factor
@@ -40,7 +40,7 @@ M: just-parser (compile) ( parser -- quot )
 <PRIVATE
 
 : flatten-vectors ( pair -- vector )
-  first2 over push-all ;
+  first2 append! ;
 
 PRIVATE>