suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

nonnegative-integer -> exact-nonnegative-integer

Browse Source
This commit is contained in:
Leif Andersen 2017-03-02 15:55:58 -05:00
parent 1ac2e77d00
commit 1ebb3d5ef3
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-doc/scribblings/reference/numbers.scrbl
View File

@ -1299,7 +1299,7 @@ Returns @racket[#t] if @racket[x] is @racket[+inf.0], @racket[-inf.0], @racket[+
@racket[#t] for non-negative @racket[inexact?] integers.} @racket[#t] for non-negative @racket[inexact?] integers.}
@defproc[(natural? [x any/c]) boolean?]{ @defproc[(natural? [x any/c]) boolean?]{
An alias for @racket[nonnegative-integer?].} An alias for @racket[exact-nonnegative-integer?].}
@; ---------------------------------------------------------------------- @; ----------------------------------------------------------------------
@close-eval[math-eval] @close-eval[math-eval]

6
pkgs/racket-test-core/tests/racket/math.rktl
View File

@ -178,12 +178,12 @@
;; natural? ;; natural?
(test #t natural? 1) (test #t natural? 1)
(test #t natural? 1.0)
(test #t natural? 3/3) (test #t natural? 3/3)
(test #t natural? 0) (test #t natural? 0)
(test #t natural? -0) (test #t natural? -0)
(test #t natural? 0.0) (test #f natural? 1.0)
(test #t natural? -0.0) (test #f natural? 0.0)
(test #f natural? -0.0)
(test #f natural? 3/2) (test #f natural? 3/2)
(test #f natural? 0.5) (test #f natural? 0.5)
(test #f natural? -5) (test #f natural? -5)

2
racket/collects/racket/math.rkt
View File

@ -47,7 +47,7 @@
(define (nonnegative-integer? x) (define (nonnegative-integer? x)
(and (integer? x) (not (negative? x)))) (and (integer? x) (not (negative? x))))
(define natural? nonnegative-integer?) (define natural? exact-nonnegative-integer?)
;; z^2 ;; z^2
(define (sqr z) (define (sqr z)