fix bug introduced in 23d5cf56

2014-05-22 14:27:46 -05:00 · 2014-05-22 14:27:46 -05:00 · 28963f2365
commit 28963f2365
parent 52e2d7b1c9
1 changed files with 3 additions and 2 deletions
--- a/pkgs/htdp-pkgs/htdp-lib/lang/run-teaching-program.rkt
+++ b/pkgs/htdp-pkgs/htdp-lib/lang/run-teaching-program.rkt
@ -52,8 +52,9 @@
       (with-handlers ([exn:fail?
                        (λ (x)
                          (set! saved-exn x)
-                          (expand
-                           (create-empty-module language-module teachpacks module-name)))])
+                          (define-values (mod name)
+                            (create-empty-module language-module teachpacks module-name))
+                          (expand mod))])
         (define body-exps (suck-all-exps port reader))           
         (define teachpack-requires (teachpacks->requires teachpacks))        
         (rewrite-module