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

Fix benchmark

db4
Slava Pestov 2008-09-03 21:03:31 -05:00
parent 15391abdd7
commit 90b2bfbc43
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/typecheck4/typecheck4.factor
View File

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