suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

shared

Browse Source 
svn: r8069

original commit: f70ea2d03aea2e5c74536d1f64d1df023090432a
This commit is contained in:
Matthew Flatt 2007-12-19 21:32:07 +00:00
parent 0684ea4a78
commit cc5373a844
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
collects/mzlib/shared.ss
View File

@ -1,18 +1,19 @@
#lang scheme/base
(module shared mzscheme (require (for-syntax scheme/base
(require-for-syntax (lib "stx.ss" "syntax") syntax/stx
(lib "kerncase.ss" "syntax") syntax/kerncase
(lib "struct.ss" "syntax") syntax/struct
"include.ss") scheme/include))
(provide shared) (provide shared)
(define undefined (letrec ([x x]) x)) (define undefined (letrec ([x x]) x))
(require (rename mzscheme the-cons cons)) (require (only-in scheme/base [cons the-cons]))
(define-syntax shared (define-syntax shared
(lambda (stx) (lambda (stx)
(define make-check-cdr #f) (define make-check-cdr #f)
;; Include the implementation. ;; Include the implementation.
;; See private/shared-body.ss. ;; See private/shared-body.ss.
(include (build-path "private" "shared-body.ss"))))) (include "private/shared-body.ss")))