     { "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>cpu-hash value-at ;
 
 : string>os ( str -- class )
     string>os-hash at ;
 
 : os>string ( class -- str )
-    string>os-hash key-for-value ;
+    string>os-hash value-at ;
 
 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.parser namespaces sequences splitting ;
IN: system

PRIMITIVE: (exit) ( n -- * )


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

: vm-git-ref ( -- string )
    vm-git-label CHAR: - over last-index head ;

: vm-git-id ( -- string )
    vm-git-label CHAR: - over last-index 1 + tail ;

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

