Fix buggy benchmarks

db4
Slava Pestov 2008-03-30 00:47:48 -05:00
parent 2d19b38683
commit 4ca0c49280
2 changed files with 2 additions and 2 deletions
extra/benchmark

View File

@ -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 ;

View File

@ -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 ;