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

bind `double-flonum?' so that it has its own name

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-31 18:14:28 -07:00
parent 1e09a544a6
commit 9f7ea2435e
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/racket/private/base.rkt
View File

@ -21,7 +21,6 @@
with-output-to-file with-output-to-file
regexp-replace* regexp-replace*
new-apply-proc) new-apply-proc)
(rename flonum? double-flonum?) ; for symmetry with single-flonum?
struct struct
(all-from "hash.rkt") (all-from "hash.rkt")
(all-from "list.rkt") (all-from "list.rkt")

6
collects/racket/private/pre-base.rkt
View File

@ -103,6 +103,9 @@
stx stx
stx)))) stx))))
(define-values (double-flonum?) ; for symmetry with single-flonum?
(lambda (x) (flonum? x)))
(#%provide (all-from-except "more-scheme.rkt" old-case fluid-let) (#%provide (all-from-except "more-scheme.rkt" old-case fluid-let)
(all-from "misc.rkt") (all-from "misc.rkt")
(all-from "define.rkt") (all-from "define.rkt")
@ -144,4 +147,5 @@
(rename define-struct* define-struct) (rename define-struct* define-struct)
define-struct/derived define-struct/derived
struct-field-index struct-field-index
struct-copy)) struct-copy
double-flonum?))