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

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

Browse Source 
lexical name instead of "core" (this only shows up in stacktraces, as
far as I can tell)
This commit is contained in:
Robby Findler 2011-11-30 16:54:58 -06:00
parent 7f96ee19e0
commit d1c29f8621
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/racket/private/kw.rkt
View File

@ -441,7 +441,9 @@
[with-kw-max-arg (if (null? (syntax-e #'rest)) [with-kw-max-arg (if (null? (syntax-e #'rest))
(+ 2 (length plain-ids) (length opts)) (+ 2 (length plain-ids) (length opts))
#f)] #f)]
[core (car (generate-temporaries '(core)))] [core (car (generate-temporaries (if (identifier? local-name)
(list local-name)
'(core))))]
[unpack (car (generate-temporaries '(unpack)))]) [unpack (car (generate-temporaries '(unpack)))])
(let ([mk-core (let ([mk-core
(lambda (kw-core?) (lambda (kw-core?)