suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Unbreak stepper.

Browse Source 
(It was broken by fed1e3dc3e2d7268c0297a0ce699d3deb2ba75c5.)
This commit is contained in:
Mike Sperber 2010-10-08 13:41:44 +02:00
parent 38cf78e213
commit 7572b24870
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/lang/run-teaching-program.rkt
View File

@ -64,7 +64,9 @@
;; this definition pulls the test~object binding from the user's namespace ;; this definition pulls the test~object binding from the user's namespace
;; over to the one that is used in the REPL when module->namepsace ;; 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 ;; grabs a hold of this module to make a namespace for the REPL
`(,#'(define test~object (namespace-variable-value 'test~object)) `(,(syntax-property
#'(define test~object (namespace-variable-value 'test~object))
'test-call #t)
(,#'test))) (,#'test)))
'())))) '()))))
rep)))] rep)))]