From 34027e46b60e71f56b15a9acea55d46031622b8a Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Thu, 22 Oct 2009 20:26:43 -0500
Subject: [PATCH] remove a redundant head from parse-bunny-model

---
 extra/gpu/demos/bunny/bunny.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/gpu/demos/bunny/bunny.factor b/extra/gpu/demos/bunny/bunny.factor
index 0d3226c394..bea137c8a3 100755
--- 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