diff --git a/library/help/markup.factor b/library/help/markup.factor index a5b3477490..1ecb650692 100644 --- a/library/help/markup.factor +++ b/library/help/markup.factor @@ -183,4 +183,5 @@ DEFER: help "Calling this word directly is not necessary in most cases. Higher-level words call it automatically." print-element ; : $values-x/y + drop { { "x" "a complex number" } { "y" "a complex number" } } $values ; diff --git a/library/math/arc-trig-hyp.facts b/library/math/arc-trig-hyp.facts index 975bd00240..bbc2c3e229 100644 --- a/library/math/arc-trig-hyp.facts +++ b/library/math/arc-trig-hyp.facts @@ -28,30 +28,30 @@ HELP: acoth "( x -- y )" $values-x/y { $description "Inverse hyperbolic cotangent." } ; -HELP: acosh "( x -- y )" +HELP: acos "( x -- y )" $values-x/y { $description "Inverse trigonometric cosine." } ; -HELP: asech "( x -- y )" +HELP: asec "( x -- y )" $values-x/y { $description "Inverse trigonometric secant." } ; -HELP: asinh "( x -- y )" +HELP: asin "( x -- y )" $values-x/y { $description "Inverse trigonometric sine." } ; -HELP: asinh "( x -- y )" +HELP: asin "( x -- y )" $values-x/y { $description "Inverse trigonometric sine." } ; -HELP: acosech "( x -- y )" +HELP: acosec "( x -- y )" $values-x/y { $description "Inverse trigonometric cosecant." } ; -HELP: atanh "( x -- y )" +HELP: atan "( x -- y )" $values-x/y { $description "Inverse trigonometric tangent." } ; -HELP: acoth "( x -- y )" +HELP: acot "( x -- y )" $values-x/y { $description "Inverse trigonometric cotangent." } ;