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)]