using ``H{ } zip-index-as``.

instead of ``<enum> [ swap ] H{ } assoc-map-as``.

diff --git a/basis/regexp/minimize/minimize.factor b/basis/regexp/minimize/minimize.factor
index 65830ac7202ce079a26f35671c6df868c02ceff2..50379f977929472dea778aa3e20310caae0757c3 100644 (file)
--- a/basis/regexp/minimize/minimize.factor
+++ b/basis/regexp/minimize/minimize.factor
@@ -6,7 +6,7 @@ regexp.transition-tables sequences sets sorting ;
 IN: regexp.minimize
 
 : table>state-numbers ( table -- assoc )
-    transitions>> keys <enum> [ swap ] H{ } assoc-map-as ;
+    transitions>> keys H{ } zip-index-as ;
 
 : number-states ( table -- newtable )
     dup table>state-numbers transitions-at ;

diff --git a/basis/unicode/data/data.factor b/basis/unicode/data/data.factor
index 0a759c625e975dfbc0892f8a8365a6d264aa1a7d..978aa186062c2583ea79f806f5e6d789437aec5e 100644 (file)
--- a/basis/unicode/data/data.factor
+++ b/basis/unicode/data/data.factor
@@ -51,7 +51,7 @@ CONSTANT: categories {
 <PRIVATE
 
 MEMO: categories-map ( -- hashtable )
-    categories <enum> [ swap ] H{ } assoc-map-as ;
+    categories H{ } zip-index-as ;
 
 CONSTANT: num-chars 0x2FA1E