From 422dd24bad487283549f35ecd0d451e1f5181a4f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 11 Aug 2009 14:07:33 -0500 Subject: [PATCH] alien.complex: fix tests --- basis/alien/complex/complex-tests.factor | 4 ++-- basis/compiler/tree/builder/builder-docs.factor | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/alien/complex/complex-tests.factor b/basis/alien/complex/complex-tests.factor index e84bb322e2..2844e505b5 100644 --- a/basis/alien/complex/complex-tests.factor +++ b/basis/alien/complex/complex-tests.factor @@ -17,6 +17,6 @@ C-STRUCT: complex-holder [ C{ 1.0 2.0 } ] [ "h" get complex-holder-z ] unit-test -[ complex ] [ "complex-float" c-type-boxed-class ] unit-test +[ number ] [ "complex-float" c-type-boxed-class ] unit-test -[ complex ] [ "complex-double" c-type-boxed-class ] unit-test \ No newline at end of file +[ number ] [ "complex-double" c-type-boxed-class ] unit-test \ No newline at end of file diff --git a/basis/compiler/tree/builder/builder-docs.factor b/basis/compiler/tree/builder/builder-docs.factor index ab4a9aa3f9..83093470c9 100644 --- a/basis/compiler/tree/builder/builder-docs.factor +++ b/basis/compiler/tree/builder/builder-docs.factor @@ -9,5 +9,5 @@ HELP: build-tree { $errors "Throws an " { $link inference-error } " if stack effect inference fails." } ; HELP: build-sub-tree -{ $values { "in-d" "inputs" } { "out-d" "outputs" } { "word/quot" { $or word quotation } } { "nodes/f" { $maybe "a sequence of nodes" } } } +{ $values { "in-d" "a sequence of values" } { "out-d" "a sequence of values" } { "word/quot" { $or word quotation } } { "nodes/f" { $maybe "a sequence of nodes" } } } { $description "Attempts to construct tree SSA IR from a quotation, starting with an initial data stack of values from the call site. Outputs " { $link f } " if stack effect inference fails." } ;