use defn to hide introduced dummy function

svn: r4673
2006-10-23 07:15:47 +00:00 · 2006-10-23 07:15:47 +00:00 · c12683b9d4
commit c12683b9d4
parent a8465ee701
1 changed files with 2 additions and 1 deletions
--- a/collects/lang/private/teach.ss
+++ b/collects/lang/private/teach.ss
@ -268,11 +268,12 @@
            (with-syntax ([(name ...) (if (eq? assign #t)
                                          names
                                          assign)]
+                          [make-up (gensym)]
                          [defn defn])
              (stepper-ignore-checker
               (syntax/loc stx
                 (begin
-                   (lambda () (advanced-set! name 10) ...)
+                   (define made-up (lambda () (advanced-set! name 10) ...))
                   defn))))
            defn)]
       [else defn]))