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)])
(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))

4
collects/preprocessor/mztext.ss
View File

@ -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)