Ticket #843: patch-843

File patch-843, 851 bytes (added by megane, 13 years ago)

possible patch

Line 
1diff --git a/modules.scm b/modules.scm
2index 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