make the names of procedures with optional arguments be basedn on the

lexical name instead of "core" (this only shows up in stacktraces, as far as I can tell)
2011-11-30 16:54:58 -06:00 · 2011-11-30 16:54:58 -06:00 · d1c29f8621
commit d1c29f8621
parent 7f96ee19e0
1 changed files with 3 additions and 1 deletions
--- a/collects/racket/private/kw.rkt
+++ b/collects/racket/private/kw.rkt
@ -441,7 +441,9 @@
                             [with-kw-max-arg (if (null? (syntax-e #'rest))
                                                  (+ 2 (length plain-ids) (length opts))
                                                  #f)]
-                             [core (car (generate-temporaries '(core)))]
+                             [core (car (generate-temporaries (if (identifier? local-name)
+                                                                  (list local-name)
+                                                                  '(core))))]
                             [unpack (car (generate-temporaries '(unpack)))])
                 (let ([mk-core
                        (lambda (kw-core?)