assocs: Make map-index-as support seq or assoc exemplars and move map-index, map...

[factor.git] / extra / euler / b-rep / b-rep.factor

diff --git a/extra/euler/b-rep/b-rep.factor b/extra/euler/b-rep/b-rep.factor
index e8d6e0af13f1397ab824218ddba23ad03cfb6056..cb9a8ff19ad5354356720b4285d9ad135f16b6b6 100644 (file)
--- a/extra/euler/b-rep/b-rep.factor
+++ b/extra/euler/b-rep/b-rep.factor
@@ -5,7 +5,7 @@ math math.vectors math.matrices assocs arrays hashtables ;
 FROM: namespaces => set ;
 IN: euler.b-rep
 
-: >index-hash ( seq -- hash ) zip-index >hashtable ; inline
+: >index-hash ( seq -- hash ) H{ } zip-index-as ; inline
 
 TUPLE: b-edge < edge sharpness macro ;