core: Add the shuffler words but without primitives.

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

diff --git a/extra/game/models/collada/collada.factor b/extra/game/models/collada/collada.factor
index 18773e79a46f35c64bb82d3f8e11fc81dc07f158..77db0a505eca8c30e7426d89e900e0cbae5fc74e 100644 (file)
--- a/extra/game/models/collada/collada.factor
+++ b/extra/game/models/collada/collada.factor
@@ -72,7 +72,7 @@ M: z-up >y-up-axis!
     [ "float_array" x/ xt string>numbers [ * ] with map ]
     [ nip "technique_common" x/ "accessor" x/ "stride" x@ string>number ] 2bi
     group
-    [ swap over length 2 > [ >y-up-axis! ] [ drop ] if ] with map ;
+    [ tuck length 2 > [ >y-up-axis! ] [ drop ] if ] with map ;
 
 : source>pair ( source-tag -- pair )
     [ "id" x@ ]