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

    r13723 r14236  
    531531                     (cdr body)
    532532                     (cons (if (pair? (cadr def))
    533                                `(define-syntax ,(caadr def) (,(macro-alias 'lambda se) ,(cdadr def) ,@(cddr def)))
     533                               `(define-syntax ,(caadr def)
     534                                  (,(macro-alias 'er-macro-transformer se)
     535                                   (,(macro-alias 'lambda se) ,(cdadr def) ,@(cddr def))))
    534536                               def)
    535537                           defs)
     
    728730
    729731;;; explicit-renaming transformer
     732
     733(define (er-macro-transformer x) x)
    730734
    731735(define ((##sys#er-transformer handler) form se dse)
Note: See TracChangeset for help on using the changeset viewer.