system: better key-for-value.

2014-11-30 07:32:34 -08:00 · 2014-11-30 07:32:34 -08:00 · 380c0099e8
parent 6dac68d593
commit 380c0099e8
1 changed files with 1 additions and 1 deletions
--- a/core/system/system.factor
+++ b/core/system/system.factor
@ -42,7 +42,7 @@ CONSTANT: string>os-hash H{
 }

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

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