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

db4
Doug Coleman 2014-11-11 16:44:00 -08:00
parent 7a9843ec5c
commit 9a3a533712
1 changed files with 6 additions and 3 deletions

View File

@ -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 ;