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 (lib "stx.ss" "syntax")
(lib "kerncase.ss" "syntax")
(lib "struct.ss" "syntax")
"include.ss")
(require (for-syntax scheme/base
syntax/stx
syntax/kerncase
syntax/struct
scheme/include))
(provide shared)
(provide shared)
(define undefined (letrec ([x x]) x))
(require (rename mzscheme the-cons cons))
(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 (build-path "private" "shared-body.ss")))))
(define-syntax shared
(lambda (stx)
(define make-check-cdr #f)
;; Include the implementation.
;; See private/shared-body.ss.
(include "private/shared-body.ss")))