Changeset 14236 in project for chicken/trunk/eval.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/eval.scm

    r13677 r14236  
    625625                          (let* ((var (if (pair? (cadr x)) (caadr x) (cadr x)))
    626626                                 (body (if (pair? (cadr x))
    627                                            `(,(rename 'lambda se) ,(cdadr x) ,@(cddr x))
     627                                           `(,(rename 'er-macro-transformer se)
     628                                             (,(rename 'lambda se) ,(cdadr x) ,@(cddr x)))
    628629                                           (caddr x)))
    629630                                 (name (rename var se)))
Note: See TracChangeset for help on using the changeset viewer.