From 48dbd4022cfedd4a2cb77c55102efdfb052bbe93 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 30 Apr 2009 17:13:52 -0500 Subject: [PATCH] Remove obsolete benchmark --- extra/benchmark/typecheck3/typecheck3.factor | 2 +- extra/benchmark/typecheck4/authors.txt | 1 - extra/benchmark/typecheck4/typecheck4.factor | 12 ------------ 3 files changed, 1 insertion(+), 14 deletions(-) delete mode 100755 extra/benchmark/typecheck4/authors.txt delete mode 100644 extra/benchmark/typecheck4/typecheck4.factor diff --git a/extra/benchmark/typecheck3/typecheck3.factor b/extra/benchmark/typecheck3/typecheck3.factor index c4887c03c4..fccd80a607 100644 --- a/extra/benchmark/typecheck3/typecheck3.factor +++ b/extra/benchmark/typecheck3/typecheck3.factor @@ -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 ; diff --git a/extra/benchmark/typecheck4/authors.txt b/extra/benchmark/typecheck4/authors.txt deleted file mode 100755 index 1901f27a24..0000000000 --- a/extra/benchmark/typecheck4/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Slava Pestov diff --git a/extra/benchmark/typecheck4/typecheck4.factor b/extra/benchmark/typecheck4/typecheck4.factor deleted file mode 100644 index c881864304..0000000000 --- a/extra/benchmark/typecheck4/typecheck4.factor +++ /dev/null @@ -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