Ticket #882: macro-exports.patch

File macro-exports.patch, 571 bytes (added by sjamaan, 10 years ago)
  • modules.scm

    diff --git a/modules.scm b/modules.scm
    index 6cea21e..43bffa6 100644
    a b  
    437437                          (module-defined-syntax-list mod)))
    438438             (sexports
    439439              (if (eq? #t explist)
    440                   sdlist
     440                  (let loop ((l elist))
     441                    (cond ((null? l) '())
     442                          ((and (symbol? (car l))
     443                                (assq (car l) (##sys#macro-environment))) =>
     444                           (lambda (def)
     445                             (cons def (loop (cdr l)))))
     446                          (else (loop (cdr l)))))
    441447                  (let loop ((me (##sys#macro-environment)))
    442448                    (cond ((null? me) '())
    443449                          ((##sys#find-export (caar me) mod #f)