 
 : 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 )
+    vm-git-label CHAR: - over last-index head ;
 
-: vm-git-ref ( -- string ) split-vm-git-label drop ;
-
-: vm-git-id ( -- string ) split-vm-git-label nip ;
+: vm-git-id ( -- string )
+    vm-git-label CHAR: - over last-index 1 + tail ;
 
 : vm-compiler ( -- string ) \ vm-compiler get-global ;
 

    { "linux" linux }
}

: key-for-value ( key hash -- val )
    >alist [ second = ] with find nip first ;

: string>cpu ( str -- class )
    string>cpu-hash at ;

: cpu>string ( class -- str )
    string>cpu-hash key-for-value ;

: string>os ( str -- class )
    string>os-hash at ;

: os>string ( class -- str )
    string>os-hash key-for-value ;

PRIVATE>


! 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 math.parser namespaces sequences ;
IN: system

PRIMITIVE: (exit) ( n -- * )
