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 pick push ] } + { [ dup length 5 = ] [ pick push ] } { [ dup first 3 = ] [ rest over push-all ] } [ drop ] } cond