remove a redundant head from parse-bunny-model

diff --git a/extra/gpu/demos/bunny/bunny.factor b/extra/gpu/demos/bunny/bunny.factor
index 0d3226c394ae858ac201ef5047091eb7837b5b1e..bea137c8a3126e7033318e6c61f55b9d51eeed0c 100755 (executable)
--- a/extra/gpu/demos/bunny/bunny.factor
+++ b/extra/gpu/demos/bunny/bunny.factor
@@ -89,7 +89,7 @@ UNIFORM-TUPLE: loading-uniforms
 : (parse-bunny-model) ( vs is -- vs is )
     [
         numbers {
-            { [ dup length 5 = ] [ 3 head <bunny-vertex> pick push ] }
+            { [ dup length 5 = ] [ <bunny-vertex> pick push ] }
             { [ dup first 3 = ] [ rest over push-all ] }
             [ drop ]
         } cond