From cad5d85354834f28c9c2cf10ce9d7505a11b995e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 15 Nov 2009 14:27:26 +0000 Subject: [PATCH] change syntax/toplevel to use scheme/base instead of mzscheme, which avoids some namespace problems svn: r16785 --- collects/syntax/toplevel.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/syntax/toplevel.ss b/collects/syntax/toplevel.ss index 14d852760c..46f2c10f23 100644 --- a/collects/syntax/toplevel.ss +++ b/collects/syntax/toplevel.ss @@ -1,5 +1,5 @@ -(module toplevel mzscheme +(module toplevel scheme/base (require "kerncase.ss") (provide eval-compile-time-part-of-top-level @@ -42,7 +42,7 @@ (map expand-syntax-top-level-with-compile-time-evals (syntax->list (syntax (expr ...))))] [(beg . _) e]) - (datum->syntax-object e (syntax-e (syntax (beg expr ...))) e e))] + (datum->syntax e (syntax-e (syntax (beg expr ...))) e e))] [else (let ([e (expand-syntax e)]) (compile-and-eval-compile-time-part e #f) @@ -63,7 +63,7 @@ [(#%require req ...) (begin0 (when compile? (compile-syntax stx)) - (for-each (lambda (req) (namespace-require/expansion-time (syntax-object->datum req))) + (for-each (lambda (req) (namespace-require/expansion-time (syntax->datum req))) (syntax->list (syntax (req ...)))))] [(module . _) (eval/compile stx)]