From d4ec7ac06a3e571ae357a052b0bdcf765ded4bb9 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 24 Feb 2008 02:59:13 +0000 Subject: [PATCH] fix evaluation svn: r8779 --- collects/preprocessor/mzpp.ss | 4 +++- collects/preprocessor/mztext.ss | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/preprocessor/mzpp.ss b/collects/preprocessor/mzpp.ss index 0d36fc840d..5e3af4711d 100644 --- a/collects/preprocessor/mzpp.ss +++ b/collects/preprocessor/mzpp.ss @@ -167,10 +167,12 @@ [cd (cd)]) (run files))) +(define-namespace-anchor nsa) + (provide preprocess) (define (preprocess . files) (read-case-sensitive #t) - (namespace-require 'preprocessor/mzpp) + (current-namespace (namespace-anchor->namespace nsa)) (do-evals) (run files)) diff --git a/collects/preprocessor/mztext.ss b/collects/preprocessor/mztext.ss index 4dc7aa05f0..d84110229b 100644 --- a/collects/preprocessor/mztext.ss +++ b/collects/preprocessor/mztext.ss @@ -305,10 +305,12 @@ ;;============================================================================= ;; Invocation +(define-namespace-anchor nsa) + (define (initialize) (read-case-sensitive #t) (unless (command-marker) (command-marker "@")) - (namespace-require 'preprocessor/mztext) + (current-namespace (namespace-anchor->namespace nsa)) (do-evals)) (define (run)