From f6ca5855e175d8cd7bfbd14cac18f5d8cd7f7be6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jens=20Axel=20S=C3=B8gaard?= Date: Wed, 20 Aug 2014 17:49:32 +0200 Subject: [PATCH] Fixed bug in selfhost-parameters.rkt --- whalesong/selfhost/selfhost-parameters.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/whalesong/selfhost/selfhost-parameters.rkt b/whalesong/selfhost/selfhost-parameters.rkt index 64b6a03..84c52f3 100644 --- a/whalesong/selfhost/selfhost-parameters.rkt +++ b/whalesong/selfhost/selfhost-parameters.rkt @@ -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)))]))