Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / extra / game / models / util / util.factor

diff --git a/extra/game/models/util/util.factor b/extra/game/models/util/util.factor
index 438ab82356b51c1306f44846cee88df6c9642e67..cf43e69451df2474f2f39121a6d85b0d241d2a34 100644 (file)
--- a/extra/game/models/util/util.factor
+++ b/extra/game/models/util/util.factor
@@ -37,8 +37,8 @@ M:: indexed-seq set-nth ( elt n seq -- )
 M: indexed-seq new-resizable
     [ dseq>> ] [ iseq>> ] [ rassoc>> ] tri <indexed-seq>
     dup -rot
-    [ [ dseq>> new-resizable ] keep (>>dseq) ]
-    [ [ iseq>> new-resizable ] keep (>>iseq) ]
-    [ [ rassoc>> clone nip ] keep (>>rassoc) ]
+    [ [ dseq>> new-resizable ] keep dseq<< ]
+    [ [ iseq>> new-resizable ] keep iseq<< ]
+    [ [ rassoc>> clone nip ] keep rassoc<< ]
     2tri ;