1 | diff --git a/modules.scm b/modules.scm |
---|
2 | index 1a4cada..6cea21e 100644 |
---|
3 | --- a/modules.scm |
---|
4 | +++ b/modules.scm |
---|
5 | @@ -696,13 +696,21 @@ |
---|
6 | (when reexp? |
---|
7 | (unless cm |
---|
8 | (##sys#syntax-error-hook loc "`reexport' only valid inside a module")) |
---|
9 | - (set-module-export-list! |
---|
10 | - cm |
---|
11 | - (append |
---|
12 | - (let ((xl (module-export-list cm) )) |
---|
13 | - (if (eq? #t xl) '() xl)) |
---|
14 | - (map car vsv) |
---|
15 | - (map car vss))) |
---|
16 | + |
---|
17 | + (if (eq? #t (module-export-list cm)) |
---|
18 | + (begin |
---|
19 | + (set-module-exist-list! |
---|
20 | + cm |
---|
21 | + (append (module-exist-list cm) |
---|
22 | + (map car vsv) |
---|
23 | + (map car vss)))) |
---|
24 | + (set-module-export-list! |
---|
25 | + cm |
---|
26 | + (append |
---|
27 | + (let ((xl (module-export-list cm) )) |
---|
28 | + (if (eq? #t xl) '() xl)) |
---|
29 | + (map car vsv) |
---|
30 | + (map car vss)))) |
---|
31 | (when (pair? prims) |
---|
32 | (set-module-meta-expressions! |
---|
33 | cm |
---|