Parent Directory | Revision Log | Patch
revision 1.1 by ossau, Wed Jan 30 00:03:40 2002 UTC | revision 1.2 by ossau, Fri Feb 1 16:47:00 2002 UTC | |
---|---|---|
# | Line 332 | Line 332 |
332 | (procedure->memoizing-macro | (procedure->memoizing-macro |
333 | (lambda (exp env) | (lambda (exp env) |
334 | (if (null? (cadr exp)) | (if (null? (cadr exp)) |
335 | `(begin ,@(map transformer (cddr exp))) | `(,begin ,@(map transformer (cddr exp))) |
336 | (car (let loop ((bindings (cadr exp))) | (car (let loop ((bindings (cadr exp))) |
337 | (if (null? bindings) | (if (null? bindings) |
338 | (map transformer (cddr exp)) | (map transformer (cddr exp)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |