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

So then the cpu>string and os>string words aren't needed.

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