From 67f38302d8ac6f7ec62dc0ca9cc374942c50fdd1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Thu, 11 Aug 2016 17:32:02 +0200 Subject: [PATCH] system: looks like the name>> accessor can be used here So then the cpu>string and os>string words aren't needed. --- core/system/system.factor | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/core/system/system.factor b/core/system/system.factor index 63a5253596..7ef646a042 100644 --- 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 -- * )