From 52399cdc09702f8eca6f0552f947fa2f5b8a1e4e Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 13 Oct 2008 15:48:46 +0000 Subject: [PATCH] trigonometric functions svn: r12013 original commit: b9866e0af2158c5ad2cd1341a33bad319828374d --- collects/typed-scheme/private/base-env.ss | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss index 6f4fad8a..7cf90e48 100644 --- a/collects/typed-scheme/private/base-env.ss +++ b/collects/typed-scheme/private/base-env.ss @@ -306,12 +306,19 @@ [real-part (N . -> . N)] [imag-part (N . -> . N)] [magnitude (N . -> . N)] -[angle (N . -> . N)] -[numerator (N . -> . -Integer)] +[angle (N . -> . N)] +[numerator (N . -> . -Integer)] [denominator (N . -> . -Integer)] +[rationalize (N N . -> . N)] [expt (cl->* (-Integer -Integer . -> . -Integer) (N N . -> . N))] -[log (N . -> . N)] -[exp (N . -> . N)] +[log (N . -> . N)] +[exp (N . -> . N)] +[cos (N . -> . N)] +[sin (N . -> . N)] +[tan (N . -> . N)] +[acos (N . -> . N)] +[asin (N . -> . N)] +[atan (N . -> . N)] [arithmetic-shift (-Integer -Integer . -> . -Integer)] [bitwise-and (null N . ->* . N)]