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

system: looks like the name>> accessor can be used here 

So then the cpu>string and os>string words aren't needed.
char-rename
Björn Lindqvist 2016-08-11 17:32:02 +02:00
parent 402e4313bb
commit 67f38302d8
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
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 continuations init io kernel kernel.private make USING: accessors assocs continuations init io kernel kernel.private make
math math.parser namespaces sequences ; math math.parser namespaces sequences ;
IN: system IN: system
@ -53,15 +53,9 @@ CONSTANT: string>os-hash H{
: string>cpu ( str -- class ) : string>cpu ( str -- class )
string>cpu-hash at ; string>cpu-hash at ;
: cpu>string ( class -- str )
string>cpu-hash value-at ;
: string>os ( str -- class ) : string>os ( str -- class )
string>os-hash at ; string>os-hash at ;
: os>string ( class -- str )
string>os-hash value-at ;
PRIVATE> PRIVATE>
: image-path ( -- path ) \ image-path get-global ; : image-path ( -- path ) \ image-path get-global ;
@ -74,12 +68,12 @@ PRIVATE>
! formatting vocab not available in this context. ! formatting vocab not available in this context.
[ [
"Factor " % vm-version % "Factor " % vm-version %
" " % cpu cpu>string % " " % cpu name>> %
" (" % build # ", " % " (" % build # ", " %
vm-git-ref % "-" % vm-git-ref % "-" %
vm-git-id 10 short head % ", " % vm-git-id 10 short head % ", " %
vm-compile-time % ")\n[" % vm-compile-time % ")\n[" %
vm-compiler % "] on " % os os>string % vm-compiler % "] on " % os name>> %
] "" make ; ] "" make ;
: exit ( n -- * ) : exit ( n -- * )