Changeset 14236 in project for chicken/trunk/compiler.scm


Ignore:
Timestamp:
04/13/09 11:32:45 (11 years ago)
Author:
felix winkelmann
Message:

added er-macro-transformer

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/compiler.scm

    r13856 r14236  
    733733                        (let* ((var (if (pair? (cadr x)) (caadr x) (cadr x)))
    734734                               (body (if (pair? (cadr x))
    735                                          `(,(macro-alias 'lambda se) ,(cdadr x) ,@(cddr x))
     735                                         `(,(macro-alias 'er-macro-transformer se)
     736                                           (,(macro-alias 'lambda se) ,(cdadr x) ,@(cddr x)))
    736737                                         (caddr x)))
    737738                               (name (lookup var se)))
Note: See TracChangeset for help on using the changeset viewer.