From 90b2bfbc4334353d1db8f6be8d4c0def49062a64 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 3 Sep 2008 21:03:31 -0500 Subject: [PATCH] Fix benchmark --- extra/benchmark/typecheck4/typecheck4.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/benchmark/typecheck4/typecheck4.factor b/extra/benchmark/typecheck4/typecheck4.factor index a2595810be..c881864304 100644 --- a/extra/benchmark/typecheck4/typecheck4.factor +++ b/extra/benchmark/typecheck4/typecheck4.factor @@ -3,7 +3,7 @@ IN: benchmark.typecheck4 TUPLE: hello n ; -: hello-n* ( obj -- val ) 3 slot ; +: hello-n* ( obj -- val ) 2 slot ; : foo ( obj -- obj n ) 0 100000000 [ over hello-n* + ] times ;