587e9e6f82
Closes PR 11588 Closes PR 11591 original commit: 655f6045a286f405f3635357795e68a47c57d21d
21 lines
521 B
Racket
21 lines
521 B
Racket
#lang scheme/base
|
|
|
|
(require (for-syntax scheme/base
|
|
syntax/stx
|
|
syntax/kerncase
|
|
syntax/struct
|
|
racket/struct-info
|
|
scheme/include))
|
|
|
|
(provide shared)
|
|
|
|
(define undefined (letrec ([x x]) x))
|
|
(require (only-in scheme/base [cons the-cons]))
|
|
|
|
(define-syntax shared
|
|
(lambda (stx)
|
|
(define make-check-cdr #f)
|
|
;; Include the implementation.
|
|
;; See private/shared-body.ss.
|
|
(include "private/shared-body.rkt")))
|