fixed comment
svn: r4488
This commit is contained in:
parent
4f7cc1e56b
commit
b48eb1bcc0
|
@ -461,8 +461,7 @@ tracing todo:
|
||||||
(super-new)))
|
(super-new)))
|
||||||
|
|
||||||
;; rewrite-module : syntax -> syntax
|
;; rewrite-module : syntax -> syntax
|
||||||
;; rewrites te module to provide all definitions and
|
;; rewrites te module to print out results of non-definitions
|
||||||
;; print out all results.
|
|
||||||
(define (rewrite-module stx)
|
(define (rewrite-module stx)
|
||||||
(syntax-case stx (module #%plain-module-begin)
|
(syntax-case stx (module #%plain-module-begin)
|
||||||
[(module name lang (#%plain-module-begin bodies ...))
|
[(module name lang (#%plain-module-begin bodies ...))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user