From 7126295905aefe0d700c54c803c4e72a47a010e3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 23 Jun 2012 03:44:55 +0800 Subject: [PATCH] teaching languages: fix copying of `test~object' binding to REPL As Mike noticed, commit d836cba7c9 triggered a different binding of `test~object' due to the enclosing module context of the `eval'ed syntax object. --- collects/lang/run-teaching-program.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/lang/run-teaching-program.rkt b/collects/lang/run-teaching-program.rkt index 7eb9069c2a..077f281e83 100644 --- a/collects/lang/run-teaching-program.rkt +++ b/collects/lang/run-teaching-program.rkt @@ -64,7 +64,7 @@ ;; over to the one that is used in the REPL when module->namepsace ;; grabs a hold of this module to make a namespace for the REPL `(,(syntax-property - #'(define test~object (namespace-variable-value 'test~object)) + #`(define #,(datum->syntax #f 'test~object) (namespace-variable-value 'test~object)) 'test-call #t))) '()) ,@body-exps)))))]