sequences.extas: use spind

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index ef66d0652f7a73d8f1f916ace0f3f8f7808cdfb2..39d03fa9df24ad142ebdc3798ac4822d015f55ee 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -1077,7 +1077,7 @@ INSTANCE: step-slice virtual-sequence
     pick 2nested-map-as ; inline
 
 : 3nested-each ( seq1 seq2 seq3 quot -- )
-    [ spin ] dip '[
+    spind '[
         -rot [
             swap _ with with each
         ] with with each