remove a redundant head from parse-bunny-model

2009-10-22 20:26:43 -05:00 · 2009-10-22 20:26:43 -05:00 · 34027e46b6
parent 943bde59f9
commit 34027e46b6
1 changed files with 1 additions and 1 deletions
--- 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