remove obsolete file

diff --git a/library/test/dataflow.factor b/library/test/dataflow.factor
deleted file mode 100644 (file)
index 0a2db05..0000000
--- a/library/test/dataflow.factor
+++ /dev/null
@@ -1,81 +0,0 @@
-IN: temporary
-USING: hashtables inference kernel lists math namespaces
-sequences test words ;
-
-: dataflow-contains-op? ( object list -- ? )
-    #! Check if some dataflow node contains a given operation.
-    [ node-op swap hash = ] some-with? ;
-
-: dataflow-contains-param? ( object list -- ? )
-    #! Check if some dataflow node contains a given operation.
-    [
-        [
-            node-op get #label = [
-                node-param get dataflow-contains-param?
-            ] [
-                node-param get =
-            ] ifte
-        ] bind
-    ] some-with? ;
-
-[ t ] [
-    \ + [ 2 + ] dataflow dataflow-contains-param? >boolean
-] unit-test
-
-: inline-test
-    car car ; inline
-
-! [ t ] [
-!     \ slot [ inline-test ] dataflow dataflow-contains-param? >boolean
-! ] unit-test
-
-[ t ] [
-    \ ifte [ [ drop ] [ + ] ifte ] dataflow dataflow-contains-op? >boolean
-] unit-test
-
-: dataflow-consume-d-len ( object -- n )
-    [ node-consume-d get length ] bind ;
-
-: dataflow-produce-d-len ( object -- n )
-    [ node-produce-d get length ] bind ;
-
-[ t ] [ [ drop ] dataflow car dataflow-consume-d-len 1 = ] unit-test
-
-[ t ] [ [ 2 ] dataflow car dataflow-produce-d-len 1 = ] unit-test
-
-: dataflow-ifte-node-consume-d ( list -- node )
-    \ ifte swap dataflow-contains-op? car [ node-consume-d get ] bind ;
-
-[ t ] [
-    [ [ swap ] [ nip "hi" ] ifte ] dataflow
-    dataflow-ifte-node-consume-d length 1 =
-] unit-test
-
-! [ t ] [
-!     [ { [ drop ] [ no-method ] [ drop ] [ no-method ] } generic ] dataflow
-!     \ dispatch swap dataflow-contains-op? car [
-!         node-param get [
-!             [ [ node-param get \ no-method = ] bind ] some?
-!         ] some?
-!     ] bind >boolean
-! ] unit-test
-
-SYMBOL: #test
-
-#test f "foobar" set-word-prop
-
-[ 6 ] [
-    {{
-        [[ node-op #test ]]
-        [[ node-param 5 ]]
-    }} "foobar" [ [ node-param get ] bind 1 + ] apply-dataflow
-] unit-test
-
-#test [ [ node-param get ] bind sq ] "foobar" set-word-prop
-
-[ 25 ] [
-    {{
-        [[ node-op #test ]]
-        [[ node-param 5 ]]
-    }} "foobar" [ [ node-param get ] bind 1 + ] apply-dataflow
-] unit-test