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

fix evaluation

Browse Source 
svn: r8779
This commit is contained in:
Eli Barzilay 2008-02-24 02:59:13 +00:00
parent 49616f9f40
commit d4ec7ac06a
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/preprocessor/mzpp.ss
View File

@ -167,10 +167,12 @@
[cd (cd)]) [cd (cd)])
(run files))) (run files)))
(define-namespace-anchor nsa)
(provide preprocess) (provide preprocess)
(define (preprocess . files) (define (preprocess . files)
(read-case-sensitive #t) (read-case-sensitive #t)
(namespace-require 'preprocessor/mzpp) (current-namespace (namespace-anchor->namespace nsa))
(do-evals) (do-evals)
(run files)) (run files))

4
collects/preprocessor/mztext.ss
View File

@ -305,10 +305,12 @@
;;============================================================================= ;;=============================================================================
;; Invocation ;; Invocation
(define-namespace-anchor nsa)
(define (initialize) (define (initialize)
(read-case-sensitive #t) (read-case-sensitive #t)
(unless (command-marker) (command-marker "@")) (unless (command-marker) (command-marker "@"))
(namespace-require 'preprocessor/mztext) (current-namespace (namespace-anchor->namespace nsa))
(do-evals)) (do-evals))
(define (run) (define (run)