/[guile]/guile/guile-core/lang/elisp/primitives/syntax.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/primitives/syntax.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26