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

Fixed bug in selfhost-parameters.rkt

Browse Source
This commit is contained in:
Jens Axel Søgaard 2014-08-20 17:49:32 +02:00
parent 00ff2f2103
commit f6ca5855e1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
whalesong/selfhost/selfhost-parameters.rkt
View File

@ -32,7 +32,9 @@
(define-syntax (parameterize stx)
(syntax-case stx ()
[(_ ([param-expr val-expr]) body ...)
[(_ () body ...)
#'(let () body ...)]
[(_ ([param-expr val-expr] more ...) body ...)
#'(let ()
(define proc param-expr)
(define p (find-parameter proc))
@ -41,5 +43,5 @@
(define vs (cons v old))
(set-parameter-values! p vs)
(begin0
body ...
(parameterize (more ...) body ...)
(set-parameter-values! p old)))]))