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.}
@defproc[(natural? [x any/c]) boolean?]{
An alias for @racket[nonnegative-integer?].}
An alias for @racket[exact-nonnegative-integer?].}
@; ----------------------------------------------------------------------
@close-eval[math-eval]

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

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

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

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