steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

VM: using make vocab instead of consecutive appends

db4
Björn Lindqvist 2013-08-25 17:41:39 +02:00 committed by Doug Coleman
parent 990af22dc6
commit 71f789fa20
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/system/system.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2007, 2010 Slava Pestov. ! Copyright (C) 2007, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! 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 IN: system
SINGLETONS: x86.32 x86.64 arm ppc.32 ppc.64 ; SINGLETONS: x86.32 x86.64 arm ppc.32 ppc.64 ;
@ -67,6 +67,8 @@ PRIVATE>
: version-info ( -- str ) : version-info ( -- str )
! formatting vocab not available in this context. ! 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 "Factor " % vm-version % " (" % vm-git-label % ", " %
" " append cpu cpu>string append "] on " append os os>string append ; vm-compile-time % ") [" %
vm-compiler % " " % cpu cpu>string % "] on " % os os>string %
] "" make ;