#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 (variable-reference->module-declaration-inspector
                   (#%variable-reference)))

(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 "racket/private/shared-body.rkt")))))