From 9d30470a38744fa69bd6929b57fe152a782d122f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 13 Oct 2008 15:56:06 +0000 Subject: [PATCH] gcd & lcm, move sqrt with its friends svn: r12015 original commit: fd89ef7d419ae721d90008930dbb8e8b0250f34f --- collects/typed-scheme/private/base-env.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss index 82df9f32..47ebf33d 100644 --- a/collects/typed-scheme/private/base-env.ss +++ b/collects/typed-scheme/private/base-env.ss @@ -314,6 +314,7 @@ [denominator (N . -> . -Integer)] [rationalize (N N . -> . N)] [expt (cl->* (-Integer -Integer . -> . -Integer) (N N . -> . N))] +[sqrt (N . -> . N)] [log (N . -> . N)] [exp (N . -> . N)] [cos (N . -> . N)] @@ -322,6 +323,8 @@ [acos (N . -> . N)] [asin (N . -> . N)] [atan (N . -> . N)] +[gcd (null -Integer . ->* . -Integer)] +[lcm (null -Integer . ->* . -Integer)] [arithmetic-shift (-Integer -Integer . -> . -Integer)] [bitwise-and (null N . ->* . N)] @@ -354,7 +357,6 @@ [round (N . -> . N)] [seconds->date (N . -> . (make-Name #'date))] [current-seconds (-> N)] -[sqrt (-> N N)] [path->string (-> -Path -String)] [link-exists? (-> -Pathlike B)]