56423f330e
by default; a new optional argument restores the old behavior (but the default behavior is consistent with the old docs and with the vast majority of existing uses) The implementation is ugly for performance reasons. A new primitive `prop:arity-incomplete' property determines when to return #f for `procedure-arity-includes?' in default mode. A nicer implementation would be to redefine `procedure-arity-includes?' at the kw-proc level, but the bytecode optimizer's and JIT's treatment of the built-in `procedure-arity-includes?' is important. The implementation choice could be revisited after cross-module inlining is implemented. Closes PR 11978
103 lines
5.0 KiB
Racket
103 lines
5.0 KiB
Racket
;;----------------------------------------------------------------------
|
|
;; mzscheme: provide everything
|
|
|
|
(module mzscheme '#%kernel
|
|
(#%require racket/private/more-scheme
|
|
racket/private/misc
|
|
racket/private/letstx-scheme
|
|
racket/private/stxcase-scheme
|
|
racket/private/stx
|
|
racket/private/stxmz-body
|
|
racket/private/qqstx
|
|
racket/private/define
|
|
racket/private/old-ds
|
|
racket/private/old-rp
|
|
racket/private/old-if
|
|
racket/private/old-procs
|
|
racket/private/map ; shadows #%kernel bindings
|
|
racket/private/kernstruct
|
|
racket/private/promise
|
|
(only racket/private/cond old-cond)
|
|
(only racket/private/list assq assv assoc) ; shadows #%kernel bindings
|
|
racket/tcp
|
|
racket/udp
|
|
'#%builtin) ; so it's attached
|
|
|
|
(#%provide require require-for-syntax require-for-template require-for-label
|
|
provide provide-for-syntax provide-for-label
|
|
(all-from-except racket/private/more-scheme case old-case
|
|
log-fatal log-error log-warning log-info log-debug
|
|
hash-update hash-update!)
|
|
(rename old-case case)
|
|
(all-from racket/private/misc)
|
|
(all-from-except racket/private/stxcase-scheme _)
|
|
(all-from-except racket/private/letstx-scheme
|
|
-define -define-syntax -define-struct
|
|
cond old-cond else =>)
|
|
(rename old-cond cond)
|
|
define-struct let-struct
|
|
identifier? ;; from racket/private/stx
|
|
(all-from racket/private/qqstx)
|
|
(all-from racket/private/define)
|
|
(all-from racket/private/kernstruct)
|
|
force delay promise?
|
|
(all-from-except '#%kernel #%module-begin #%datum
|
|
if make-empty-namespace
|
|
syntax->datum datum->syntax
|
|
free-identifier=?
|
|
free-transformer-identifier=?
|
|
free-template-identifier=?
|
|
free-label-identifier=?
|
|
vector-copy!
|
|
thread-send
|
|
thread-receive
|
|
thread-try-receive
|
|
thread-receive-evt
|
|
make-hash make-immutable-hash make-weak-hash
|
|
make-hasheq make-immutable-hasheq make-weak-hasheq
|
|
hash? hash-eq? hash-weak?
|
|
hash-ref hash-set! hash-set
|
|
hash-remove! hash-remove
|
|
hash-copy hash-count
|
|
hash-map hash-for-each
|
|
hash-iterate-first hash-iterate-next
|
|
hash-iterate-value hash-iterate-key
|
|
log-message log-level? make-logger logger? current-logger logger-name
|
|
make-log-receiver log-receiver?
|
|
prop:incomplete-arity)
|
|
(rename syntax->datum syntax-object->datum)
|
|
(rename datum->syntax datum->syntax-object)
|
|
(rename free-identifier=? module-identifier=?)
|
|
(rename free-transformer-identifier=? module-transformer-identifier=?)
|
|
(rename free-template-identifier=? module-template-identifier=?)
|
|
(rename free-label-identifier=? module-label-identifier=?)
|
|
(rename free-identifier=?* free-identifier=?)
|
|
make-hash-table hash-table? make-immutable-hash-table
|
|
(rename hash-ref hash-table-get)
|
|
(rename hash-set! hash-table-put!)
|
|
(rename hash-remove! hash-table-remove!)
|
|
(rename hash-count hash-table-count)
|
|
(rename hash-copy hash-table-copy)
|
|
(rename hash-map hash-table-map)
|
|
(rename hash-for-each hash-table-for-each)
|
|
(rename hash-iterate-first hash-table-iterate-first)
|
|
(rename hash-iterate-next hash-table-iterate-next)
|
|
(rename hash-iterate-value hash-table-iterate-value)
|
|
(rename hash-iterate-key hash-table-iterate-key)
|
|
namespace-transformer-require
|
|
transcript-on transcript-off
|
|
(rename cleanse-path expand-path)
|
|
(rename if* if)
|
|
(rename list list-immutable)
|
|
make-namespace
|
|
#%top-interaction
|
|
map for-each andmap ormap
|
|
assq assv assoc
|
|
(rename datum #%datum)
|
|
(rename mzscheme-in-stx-module-begin #%module-begin)
|
|
(rename #%module-begin #%plain-module-begin)
|
|
(rename lambda #%plain-lambda)
|
|
(rename #%app #%plain-app)
|
|
(all-from racket/tcp)
|
|
(all-from racket/udp)))
|