original commit: 00d2e63b366af810ddf803117b161fd765d6e11e
This commit is contained in:
Matthew Flatt 2002-11-16 23:45:07 +00:00
parent 2828e596f6
commit 2dc74ffd45

View File

@ -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")))))