whoops^2 (both this and the previous commit: a refactoring put the wrong default argument in a function's parameter list)

This commit is contained in:
Robby Findler 2011-07-25 06:28:00 -04:00
parent 43a85acc8f
commit b0ea1efc9e

View File

@ -651,7 +651,7 @@
(with-syntax ([(code id) (code-for-one-id/new-name stx id reflect-id ctrct user-rename-id)])
(syntax code)))
(define (id-for-one-id user-rename-id reflect-id id [mangle-for-maker? #t])
(define (id-for-one-id user-rename-id reflect-id id [mangle-for-maker? #f])
((if mangle-for-maker?
a:mangle-id-for-maker
a:mangle-id)
@ -729,7 +729,6 @@
(contract contract-id id pos-module-source 'ignored 'id
(quote-srcloc id)))
(void)))
(syntax (code id-rename)))))))
(define p/c-clauses (syntax->list (syntax (p/c-ele ...))))