.
original commit: 00d2e63b366af810ddf803117b161fd765d6e11e
This commit is contained in:
parent
2828e596f6
commit
2dc74ffd45
|
@ -9,8 +9,10 @@
|
|||
|
||||
(define undefined (letrec ([x x]) x))
|
||||
(require (rename mzscheme the-cons cons))
|
||||
|
||||
|
||||
(define-syntax shared
|
||||
(lambda (stx)
|
||||
(define make-check-cdr #f)
|
||||
;; Include the implementation.
|
||||
;; See private/shared-body.ss.
|
||||
(include (build-path "private" "shared-body.ss")))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user