diff --git a/collects/mzlib/math.ss b/collects/mzlib/math.ss index 6d689f8ad3..5a2db7bdfb 100644 --- a/collects/mzlib/math.ss +++ b/collects/mzlib/math.ss @@ -1,6 +1,6 @@ (module math scheme/base (require scheme/math) - (provide (except-out (all-from-out scheme/math) - euler) - (rename-out [euler e]))) + (provide (all-from-out scheme/math) + e) + (define e (exp 1.0))) diff --git a/collects/mzlib/scribblings/math.scrbl b/collects/mzlib/scribblings/math.scrbl index 5f937c3b98..f1251bbb86 100644 --- a/collects/mzlib/scribblings/math.scrbl +++ b/collects/mzlib/scribblings/math.scrbl @@ -1,9 +1,11 @@ #lang scribble/doc @(require "common.ss" - (for-label mzlib/math - (only-in scheme/math euler))) + (for-label mzlib/math)) @mzlib[#:mode title math] -Re-exports @schememodname[scheme/math], except that @scheme[euler] is -renamed on export to @scheme[e]. +Re-exports @schememodname[scheme/math], and also exports @scheme[e]. + +@defthing[e real?]{ + +An approximation to Euler's constant: @number->string[(exp 1)].} diff --git a/collects/scheme/math.ss b/collects/scheme/math.ss index 1a6c242f03..99346dc1cc 100644 --- a/collects/scheme/math.ss +++ b/collects/scheme/math.ss @@ -4,16 +4,13 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #lang scheme/base -(provide euler - pi +(provide pi sqr sgn conjugate sinh cosh) (define (sqr z) (* z z)) -;; circular constants and aliases -(define euler (exp 1.0)) (define pi (atan 0 -1)) ;; sgn function diff --git a/collects/scribblings/reference/numbers.scrbl b/collects/scribblings/reference/numbers.scrbl index 7882d69be8..8d4b6c93d8 100644 --- a/collects/scribblings/reference/numbers.scrbl +++ b/collects/scribblings/reference/numbers.scrbl @@ -813,10 +813,6 @@ is little-endian.} @note-lib[scheme/math] -@defthing[euler real?]{ - -An approximation to Euler's constant: @number->string[euler].} - @defthing[pi real]{ An approximation to the ratio of a circle's circumference to its