diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.ss index 8bd53117c6..9ab0dbcaef 100644 --- a/collects/lang/htdp-langs.ss +++ b/collects/lang/htdp-langs.ss @@ -461,8 +461,7 @@ tracing todo: (super-new))) ;; rewrite-module : syntax -> syntax - ;; rewrites te module to provide all definitions and - ;; print out all results. + ;; rewrites te module to print out results of non-definitions (define (rewrite-module stx) (syntax-case stx (module #%plain-module-begin) [(module name lang (#%plain-module-begin bodies ...))