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