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

Fix benchmark

db4
Slava Pestov 2008-09-03 07:36:12 -05:00
parent e16893a2bf
commit c5979caf75
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/benchmark/typecheck2/typecheck2.factor
View File

@ -3,7 +3,7 @@ IN: benchmark.typecheck2
TUPLE: hello n ; 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 ; : foo ( obj -- obj n ) 0 100000000 [ over hello-n* + ] times ;