over push -> suffix!, over push-all -> append!

[factor.git] / extra / gpu / demos / bunny / bunny.factor

diff --git a/extra/gpu/demos/bunny/bunny.factor b/extra/gpu/demos/bunny/bunny.factor
index a741af800263b15d4beed4529fb03fb5da62a85e..09853263ce58a8ce882e6a9b34ec9fd8e2891cca 100755 (executable)
--- a/extra/gpu/demos/bunny/bunny.factor
+++ b/extra/gpu/demos/bunny/bunny.factor
@@ -107,7 +107,7 @@ UNIFORM-TUPLE: loading-uniforms
     [
         numbers {
             { [ dup length 5 = ] [ <bunny-vertex> pick push ] }
-            { [ dup first 3 = ] [ rest over push-all ] }
+            { [ dup first 3 = ] [ rest append! ] }
             [ drop ]
         } cond
     ] each-line-tokens ; inline