Changeset 12562 in project for chicken/trunk/expand.scm


Ignore:
Timestamp:
11/20/08 09:52:33 (11 years ago)
Author:
felix winkelmann
Message:

macro defs in import libs are syntax-stripped

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/expand.scm

    r12546 r12562  
    14331433                        (a (assq name dlist)))
    14341434                   (cond ((pair? a)
    1435                           `(cons ',(car sexport) ,(cdr a)))
     1435                          `(cons ',(car sexport) ,(##sys#strip-syntax (cdr a))))
    14361436                         (else
    14371437                          (dm "re-exported syntax" name mname)
     
    14461446                      (else
    14471447                       (let ((name (caar sd)))
    1448                          (cons `(cons ',(caar sd) ,(cdar sd))
     1448                         (cons `(cons ',(caar sd) ,(##sys#strip-syntax (cdar sd)))
    14491449                               (loop (cdr sd)))))))))))))
    14501450
Note: See TracChangeset for help on using the changeset viewer.