factor: more top level forms.

[factor.git] / basis / system-info / system-info.factor

diff --git a/basis/system-info/system-info.factor b/basis/system-info/system-info.factor
index ba52b23003a5a1e612136bb5ad2d239cd53148a4..74089f9eb67ae928f2b21082183813f9a3372e65 100644 (file)
--- a/basis/system-info/system-info.factor
+++ b/basis/system-info/system-info.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors io kernel math math.parser sequences system
-vocabs ;
+vocabs vocabs.platforms ;
 IN: system-info
 
 HOOK: os-version os ( -- version )
@@ -31,4 +31,4 @@ HOOK: username os ( -- string )
     "CPU Speed: " write cpu-mhz ghz nl
     "Physical RAM: " write physical-mem megs nl ;
 
-"system-info." os name>> append require
+USE-OS-SUFFIX: system-info