From 28963f2365f8b88bbe434c3d0c5929bd93f3c348 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 22 May 2014 14:27:46 -0500 Subject: [PATCH] fix bug introduced in 23d5cf56 --- pkgs/htdp-pkgs/htdp-lib/lang/run-teaching-program.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pkgs/htdp-pkgs/htdp-lib/lang/run-teaching-program.rkt b/pkgs/htdp-pkgs/htdp-lib/lang/run-teaching-program.rkt index 2f5f330676..c18b34c890 100644 --- 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