basis, extra: Use zip-index.

[factor.git] / basis / compiler / cfg / linearization / linearization.factor

diff --git a/basis/compiler/cfg/linearization/linearization.factor b/basis/compiler/cfg/linearization/linearization.factor
index 2c083a5a82dffaca6929b5e68c17051ecc2eb0b9..ee18394498b1837795e713c5ab6e3f60d7c0d7c5 100644 (file)
--- a/basis/compiler/cfg/linearization/linearization.factor
+++ b/basis/compiler/cfg/linearization/linearization.factor
@@ -87,4 +87,4 @@ SYMBOL: numbers
 : block-number ( bb -- n ) numbers get at ;
 
 : number-blocks ( bbs -- )
-    [ 2array ] map-index >hashtable numbers set ;
+    zip-index >hashtable numbers set ;