diff --git a/extra/combinators/lib/lib-tests.factor b/extra/combinators/lib/lib-tests.factor index 78916bb027..680e3220b0 100755 --- a/extra/combinators/lib/lib-tests.factor +++ b/extra/combinators/lib/lib-tests.factor @@ -23,35 +23,6 @@ IN: combinators.lib.tests { "oof" "bar" } { [ reverse ] [ "x" swap "x" 3append ] } parallel-call ] unit-test -! && - -[ t ] [ - 3 { - [ dup number? ] [ dup odd? ] [ dup 0 > ] - } 0&& nip -] unit-test - -[ f ] [ - 3 { - [ dup number? ] [ dup even? ] [ dup 0 > ] - } 0&& nip -] unit-test - -! || - -[ t ] [ - 4 { - [ dup array? ] [ dup number? ] [ 3 throw ] - } 0|| nip -] unit-test - -[ f ] [ - 4 { - [ dup array? ] [ dup vector? ] [ dup float? ] - } 0|| nip -] unit-test - - { 1 1 } [ [ even? ] [ drop 1 ] [ drop 2 ] ifte ] must-infer-as