steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

2
extra/benchmark/typecheck2/typecheck2.factor
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 ;

2
extra/benchmark/typecheck3/typecheck3.factor
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 ;