Changeset 14781 in project for chicken/trunk


Ignore:
Timestamp:
05/25/09 13:04:41 (11 years ago)
Author:
felix winkelmann
Message:

hidden expansions into er-macro-transformer are needless and problematic when emitting import libraries

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/compiler.scm

    r14656 r14781  
    743743                        (let* ((var (if (pair? (cadr x)) (caadr x) (cadr x)))
    744744                               (body (if (pair? (cadr x))
    745                                          `(,(macro-alias 'er-macro-transformer se)
    746                                            (,(macro-alias 'lambda se) ,(cdadr x) ,@(cddr x)))
     745                                         `(,(macro-alias 'lambda se) ,(cdadr x) ,@(cddr x))
    747746                                         (caddr x)))
    748747                               (name (lookup var se)))
  • chicken/trunk/eval.scm

    r14340 r14781  
    621621                          (let* ((var (if (pair? (cadr x)) (caadr x) (cadr x)))
    622622                                 (body (if (pair? (cadr x))
    623                                            `(,(rename 'er-macro-transformer se)
    624                                              (,(rename 'lambda se) ,(cdadr x) ,@(cddr x)))
     623                                           `(,(rename 'lambda se) ,(cdadr x) ,@(cddr x))
    625624                                           (caddr x)))
    626625                                 (name (rename var se)))
  • chicken/trunk/expand.scm

    r14720 r14781  
    536536                     (cons (if (pair? (cadr def))
    537537                               `(define-syntax ,(caadr def)
    538                                   (,(macro-alias 'er-macro-transformer se)
    539                                    (,(macro-alias 'lambda se) ,(cdadr def) ,@(cddr def))))
     538                                  (,(macro-alias 'lambda se) ,(cdadr def) ,@(cddr def)))
    540539                               def)
    541540                           defs)
Note: See TracChangeset for help on using the changeset viewer.