From 4ca0c492807c2a1b58aabd6b97824c4e317125cf Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 30 Mar 2008 00:47:48 -0500 Subject: [PATCH] Fix buggy benchmarks --- extra/benchmark/typecheck2/typecheck2.factor | 2 +- extra/benchmark/typecheck3/typecheck3.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/benchmark/typecheck2/typecheck2.factor b/extra/benchmark/typecheck2/typecheck2.factor index d7977063ee..0fc1debb67 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* dup tuple? [ 4 slot ] [ 3 throw ] if ; +: hello-n* dup tuple? [ 3 slot ] [ 3 throw ] if ; : foo 0 100000000 [ over hello-n* + ] times ; diff --git a/extra/benchmark/typecheck3/typecheck3.factor b/extra/benchmark/typecheck3/typecheck3.factor index e85fb2850c..9a58e0a795 100644 --- a/extra/benchmark/typecheck3/typecheck3.factor +++ b/extra/benchmark/typecheck3/typecheck3.factor @@ -3,7 +3,7 @@ IN: benchmark.typecheck3 TUPLE: hello n ; -: hello-n* dup tag 2 eq? [ 4 slot ] [ 3 throw ] if ; +: hello-n* dup tag 2 eq? [ 3 slot ] [ 3 throw ] if ; : foo 0 100000000 [ over hello-n* + ] times ;