1 | Index: miscmacros.scm |
---|
2 | =================================================================== |
---|
3 | --- miscmacros.scm (revision 25270) |
---|
4 | +++ miscmacros.scm (working copy) |
---|
5 | @@ -281,14 +281,15 @@ |
---|
6 | (lambda (f r c) |
---|
7 | (let ((s (cadr f)) |
---|
8 | (forms (cddr f)) |
---|
9 | - (%let (r 'let))) |
---|
10 | - `(,%let ((x ,s)) |
---|
11 | + (%let (r 'let)) |
---|
12 | + (%x (r 'x))) |
---|
13 | + `(,%let ((,%x ,s)) |
---|
14 | ,@(map (lambda (form) |
---|
15 | (if (list? form) |
---|
16 | - `(,(car form) x ,@(cdr form)) |
---|
17 | - `(,form x))) |
---|
18 | + `(,(car form) ,%x ,@(cdr form)) |
---|
19 | + `(,form ,%x))) |
---|
20 | forms) |
---|
21 | - x)))) |
---|
22 | + ,%x)))) |
---|
23 | |
---|
24 | (define-syntax-rule (ecase val clauses ...) |
---|
25 | (case val |
---|