steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix stack effect error

cvs
Slava Pestov 2006-01-12 06:08:45 +00:00
parent f8d35998f8
commit 9da28cdc78
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
library/help/markup.factor
View File

@ -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 ;

14
library/math/arc-trig-hyp.facts
View File

@ -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." } ;