Changeset 12562 in project for chicken


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

macro defs in import libs are syntax-stripped

Location:
chicken/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/TODO

    r12559 r12562  
    4141*** curried define performs expansion in empty se - problem?
    4242    (as comment in expand.scm indicated (##sys#register-export))
     43*** check phase separation and module access
     44**** interaction for define-for-syntax, begin-for-syntax, and macros
     45     also check for different execution modes (compile-time, run-time, csi, ...)
    4346*** checks to be implemented
    4447**** reimport of imported id
  • 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.