system: Add cell-bits (32/64 bit) and build number to version-info string.

diff --git a/core/system/system.factor b/core/system/system.factor
index f3b1b5c94d29bc4efca37ebce35be8ea13c3ae46..5493dc13a1c8ab4180a362df4904158a8d08f3fd 100644 (file)
--- a/core/system/system.factor
+++ b/core/system/system.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2007, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs continuations init io kernel kernel.private make
-namespaces sequences ;
+USING: assocs continuations init io kernel kernel.private
+layouts make math.parser namespaces sequences ;
 IN: system
 
 SINGLETONS: x86.32 x86.64 arm ppc.32 ppc.64 ;
@@ -67,7 +67,10 @@ PRIVATE>
 : version-info ( -- str )
     ! formatting vocab not available in this context.
     [
-        "Factor " % vm-version % " (" % vm-git-label % ", " %
+        "Factor " % vm-version %
+        " " % cell-bits #
+        "-bit build: " % build #
+        " (" % vm-git-label % ", " %
         vm-compile-time % ") [" %
         vm-compiler % " " % cpu cpu>string % "] on " % os os>string %
     ] "" make ;