Ticket #716: doto-patch.scm

File doto-patch.scm, 680 bytes (added by Christian Kellermann, 14 years ago)
Line 
1Index: 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