diff options
Diffstat (limited to 'module/ice-9/and-let-star.scm')
| -rw-r--r-- | module/ice-9/and-let-star.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/ice-9/and-let-star.scm b/module/ice-9/and-let-star.scm index 2d53ff384..9427c1733 100644 --- a/module/ice-9/and-let-star.scm +++ b/module/ice-9/and-let-star.scm @@ -53,12 +53,12 @@ ((_ orig-form ((var expr)) . body) (identifier? #'var) #'(let ((var expr)) - (and var (begin . body)))) + (and var (let () . body)))) ((_ orig-form ((expr)) . body) - #'(and expr (begin . body))) + #'(and expr (let () . body))) ((_ orig-form (var) . body) (identifier? #'var) - #'(and var (begin . body))) + #'(and var (let () . body))) ;; Handle bad clauses. ((_ orig-form (bad-clause . rest) . body) |