assocs.extras: Move some often-used words to core

[factor.git] / basis / unicode / data / data.factor

diff --git a/basis/unicode/data/data.factor b/basis/unicode/data/data.factor
index 451e2773e7e046855ac68ddc9adb6ca62683ab5e..d1be78da2367fdb7611b9a0d5ec3f6ac8ebfe317 100644 (file)
--- a/basis/unicode/data/data.factor
+++ b/basis/unicode/data/data.factor
@@ -132,7 +132,7 @@ PRIVATE>
 : process-combining ( data -- hash )
     3 swap (process-data)
     [ string>number ] assoc-map
-    [ nip zero? ] assoc-reject
+    [ zero? ] reject-values
     >hashtable ;
 
 ! the maximum unicode char in the first 3 planes