original commit: 8e62591ef00d0f98c09752b9917d699b0acd93b6
This commit is contained in:
Matthew Flatt 2005-01-20 21:43:41 +00:00
parent d08719f894
commit 26f6fa775e

View File

@ -17,7 +17,7 @@
(lambda (stx)
(let ([v (syntax-parameter-target-value #'gen-id)])
(apply-transformer v stx #'set!)))
#'gen-id)))))]))
((syntax-local-certifier) #'gen-id))))))]))
(define-syntax (syntax-parameterize stx)
(syntax-case stx ()