From 0acb9b84320ad5fa29bcae29f24e978b09d0886e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 1 Mar 2013 15:28:39 -0700 Subject: [PATCH] doc correction and test additions for `atan' Closes PR 10324 --- collects/scribblings/reference/numbers.scrbl | 4 ++-- collects/tests/racket/number.rktl | 4 ++++ 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/scribblings/reference/numbers.scrbl b/collects/scribblings/reference/numbers.scrbl index 7ff97169bb..9d39ced2a9 100644 --- a/collects/scribblings/reference/numbers.scrbl +++ b/collects/scribblings/reference/numbers.scrbl @@ -69,8 +69,8 @@ and @racketvalfont{-nan.f} is the same as @racket[+nan.f]. Calculations with infinites produce results consistent with IEEE double- or single-precision floating point where IEEE specifies the result; in -cases where IEEE provides no specification, such as @racket[(angle -+inf.0+inf.0i)], the result corresponds to the limit approaching +cases where IEEE provides no specification, +the result corresponds to the limit approaching infinity, or @racket[+nan.0] or @racket[+nan.f] if no such limit exists. A @deftech{fixnum} is an exact integer whose two's complement diff --git a/collects/tests/racket/number.rktl b/collects/tests/racket/number.rktl index b604a48b9f..ab77f6b48f 100644 --- a/collects/tests/racket/number.rktl +++ b/collects/tests/racket/number.rktl @@ -2110,6 +2110,10 @@ (test 7/9 rationalize (inexact->exact (atan +inf.0 +inf.0)) 1/100) (test 26/11 rationalize (inexact->exact (atan +inf.0 -inf.0)) 1/100) (test -7/9 rationalize (inexact->exact (atan -inf.0 +inf.0)) 1/100) +(test 7/9 rationalize (inexact->exact (angle +inf.0+inf.0i)) 1/100) +(test 26/11 rationalize (inexact->exact (angle -inf.0+inf.0i)) 1/100) +(test -7/9 rationalize (inexact->exact (angle +inf.0-inf.0i)) 1/100) +(test -26/11 rationalize (inexact->exact (angle -inf.0-inf.0i)) 1/100) (test-nan.0 atan +nan.0) (test-nan.0 atan 1 +nan.0)