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

Remove obsolete benchmark

db4
Slava Pestov 2009-04-30 17:13:52 -05:00
parent d6444e742c
commit 48dbd4022c
3 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,7 +3,7 @@ IN: benchmark.typecheck3
TUPLE: hello n ;
: hello-n* ( obj -- val ) dup tag 2 eq? [ 2 slot ] [ 3 throw ] if ;
: hello-n* ( obj -- val ) 2 slot ;
: foo ( obj -- obj n ) 0 100000000 [ over hello-n* + ] times ;

1
extra/benchmark/typecheck4/authors.txt
View File

@ -1 +0,0 @@
Slava Pestov

12
extra/benchmark/typecheck4/typecheck4.factor
View File

@ -1,12 +0,0 @@
USING: math kernel kernel.private slots.private ;
IN: benchmark.typecheck4
TUPLE: hello n ;
: hello-n* ( obj -- val ) 2 slot ;
: foo ( obj -- obj n ) 0 100000000 [ over hello-n* + ] times ;
: typecheck-main ( -- ) 0 hello boa foo 2drop ;
MAIN: typecheck-main