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

[factor.git] / extra / fonts / syntax / syntax.factor

diff --git a/extra/fonts/syntax/syntax.factor b/extra/fonts/syntax/syntax.factor
index c296dfb3df42c952b1b70152c6eddff28d59510b..34ccbc8aa8f1d8864a9c0dd53bfb43f441df5c86 100644 (file)
--- a/extra/fonts/syntax/syntax.factor
+++ b/extra/fonts/syntax/syntax.factor
@@ -13,4 +13,4 @@ SYNTAX: FONT: \ ; parse-until {
     [ [ italic = ] find nip [ >>italic? ] install ]
     [ [ bold = ] find nip [ >>bold? ] install ]
     [ [ fontname? ] find nip [ >>name* ] install ]
-} cleave 4array concat '[ dup font>> @ drop ] over push-all ;
+} cleave 4array concat '[ dup font>> @ drop ] append! ;