23 lines
563 B
Racket
23 lines
563 B
Racket
#lang scheme/base
|
|
|
|
(require syntax/stx
|
|
syntax/kerncase
|
|
syntax/struct
|
|
racket/struct-info
|
|
scheme/include)
|
|
|
|
(provide shared/proc)
|
|
|
|
(require (for-template
|
|
scheme/base
|
|
(only-in "teachprims.rkt" [advanced-cons the-cons])))
|
|
|
|
(define code-insp (current-code-inspector))
|
|
|
|
(define shared/proc
|
|
(lambda (stx make-check-cdr undefined-expr)
|
|
(with-syntax ([undefined undefined-expr])
|
|
;; Include the implementation.
|
|
;; See private/shared-body.rkt.
|
|
(include (lib "mzlib/private/shared-body.rkt")))))
|