From cc5373a844d615a2dd1de5987c86016f10a907a2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 19 Dec 2007 21:32:07 +0000
Subject: [PATCH] shared

svn: r8069

original commit: f70ea2d03aea2e5c74536d1f64d1df023090432a
---
 collects/mzlib/shared.ss | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/collects/mzlib/shared.ss b/collects/mzlib/shared.ss
index d71b2c4..c49edd4 100644
--- a/collects/mzlib/shared.ss
+++ b/collects/mzlib/shared.ss
@@ -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")))