-! copyright (c) 2007, 2010 slava pestov.
+! Copyright (c) 2007, 2010 slava pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: assocs continuations init io kernel kernel.private make
-math.parser namespaces sequences splitting ;
+math math.parser namespaces sequences ;
 IN: system
 
 PRIMITIVE: (exit) ( n -- * )


: vm-git-label ( -- string ) \ vm-git-label get-global ;

: split-vm-git-label ( -- ref git-id )
    vm-git-label "-" split1-last ;

: vm-git-ref ( -- string ) split-vm-git-label drop ;

: vm-git-id ( -- string ) split-vm-git-label nip ;

: vm-compiler ( -- string ) \ vm-compiler get-global ;


    { "linux" linux }
}

: 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>

