From 279939d40b3d85b58a5ea6d3f8ee7b1ea4459cc4 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 13 Oct 2008 15:42:19 +0000 Subject: [PATCH] some more sensible grouping of similar functions svn: r12009 original commit: 86d70f52d8a09e9654be57be0e52cc74be8fa486 --- collects/typed-scheme/private/base-env.ss | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss index d421b2e6..390034e6 100644 --- a/collects/typed-scheme/private/base-env.ss +++ b/collects/typed-scheme/private/base-env.ss @@ -294,8 +294,10 @@ [list->vector (-poly (a) (-> (-lst a) (-vec a)))] [exact? (N . -> . B)] [inexact? (N . -> . B)] +[exact->inexact (N . -> . N)] +[inexact->exact (N . -> . N)] + [expt (cl->* (-Integer -Integer . -> . -Integer) (N N . -> . N))] -[vector (-poly (a) (->* (list) a (-vec a)))] [real? (Univ . -> . B)] [real-part (N . -> . N)] [imag-part (N . -> . N)] @@ -303,10 +305,11 @@ [angle (N . -> . N)] [numerator (N . -> . -Integer)] [denominator (N . -> . -Integer)] -[exact->inexact (N . -> . N)] -[inexact->exact (N . -> . N)] -[make-string (cl-> [(N) -String] [(N -Char) -String])] + [arithmetic-shift (-Integer -Integer . -> . -Integer)] + +[vector (-poly (a) (->* (list) a (-vec a)))] +[make-string (cl-> [(N) -String] [(N -Char) -String])] [abs (N . -> . N)] [substring (cl-> [(-String N) -String] [(-String N N) -String])]