diff --git a/extra/benchmark/typecheck2/typecheck2.factor b/extra/benchmark/typecheck2/typecheck2.factor index f408389e69..2571eda412 100644 --- a/extra/benchmark/typecheck2/typecheck2.factor +++ b/extra/benchmark/typecheck2/typecheck2.factor @@ -3,7 +3,7 @@ IN: benchmark.typecheck2 TUPLE: hello n ; -: hello-n* ( obj -- value ) dup tuple? [ 3 slot ] [ 3 throw ] if ; +: hello-n* ( obj -- value ) dup tuple? [ 2 slot ] [ 3 throw ] if ; : foo ( obj -- obj n ) 0 100000000 [ over hello-n* + ] times ;