steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove a redundant head from parse-bunny-model

db4
Joe Groff 2009-10-22 20:26:43 -05:00
parent 943bde59f9
commit 34027e46b6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/gpu/demos/bunny/bunny.factor
View File

@ -89,7 +89,7 @@ UNIFORM-TUPLE: loading-uniforms
: (parse-bunny-model) ( vs is -- vs is ) : (parse-bunny-model) ( vs is -- vs is )
[ [
numbers { numbers {
{ [ dup length 5 = ] [ 3 head <bunny-vertex> pick push ] } { [ dup length 5 = ] [ <bunny-vertex> pick push ] }
{ [ dup first 3 = ] [ rest over push-all ] } { [ dup first 3 = ] [ rest over push-all ] }
[ drop ] [ drop ]
} cond } cond