VM: using make vocab instead of consecutive appends

diff --git a/core/system/system.factor b/core/system/system.factor
index 9aca2d33c6e82cd9fb236969676c6bd2ac1959cc..93cb9a4513d5df5008d845cda6b764cce78564a7 100644 (file)
--- a/core/system/system.factor
+++ b/core/system/system.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2007, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs init kernel kernel.private namespaces strings sequences ;
+USING: assocs init kernel kernel.private make namespaces sequences strings  ;
 IN: system
 
 SINGLETONS: x86.32 x86.64 arm ppc.32 ppc.64 ;
@@ -67,6 +67,8 @@ PRIVATE>
 
 : version-info ( -- str )
     ! formatting vocab not available in this context.
-    "Factor " vm-version append " (" append vm-git-label append ", " append
-    vm-compile-time append ") [" append vm-compiler append
-    " " append cpu cpu>string append "] on " append os os>string append ;
+    [
+        "Factor " % vm-version % " (" % vm-git-label % ", " %
+        vm-compile-time % ") [" %
+        vm-compiler % " " % cpu cpu>string % "] on " % os os>string %
+    ] "" make ;