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

.

Browse Source 
original commit: dcea1d03bb6ab7d9821ae894716810448aea971a
This commit is contained in:
Matthew Flatt 2005-01-21 01:26:18 +00:00
parent 26f6fa775e
commit fff6293a8d
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/mzlib/stxparam.ss
View File

@ -12,12 +12,13 @@
#'(begin
(define-syntax gen-id (convert-renamer init-val))
(define-syntax id
(make-set!-transformer
(make-syntax-parameter
(lambda (stx)
(let ([v (syntax-parameter-target-value #'gen-id)])
(apply-transformer v stx #'set!)))
((syntax-local-certifier) #'gen-id))))))]))
(let ([gen-id ((syntax-local-certifier) #'gen-id)])
(make-set!-transformer
(make-syntax-parameter
(lambda (stx)
(let ([v (syntax-parameter-target-value gen-id)])
(apply-transformer v stx #'set!)))
gen-id))))))]))
(define-syntax (syntax-parameterize stx)
(syntax-case stx ()