diff --git a/modules.scm b/modules.scm
index 6cea21e..43bffa6 100644
a
|
b
|
|
437 | 437 | (module-defined-syntax-list mod))) |
438 | 438 | (sexports |
439 | 439 | (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))))) |
441 | 447 | (let loop ((me (##sys#macro-environment))) |
442 | 448 | (cond ((null? me) '()) |
443 | 449 | ((##sys#find-export (caar me) mod #f) |