~ chicken-core (master) d644214264da6bf6b809f2c690376e1f1d8fbd94

commit d644214264da6bf6b809f2c690376e1f1d8fbd94
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Sep 8 23:11:25 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Sep 8 23:12:00 2026 +0200

    Disable indirect export warnings for r7rs library definitions as they make no sense.
    
    (reported by Hernán Ibarra Mejia)

diff --git a/modules.scm b/modules.scm
index ec1d109d..e22f36f5 100644
--- a/modules.scm
+++ b/modules.scm
@@ -278,13 +278,15 @@
     mod) )
 
 (define (module-indirect-exports mod)
-  (let ((exports (module-export-list mod))
-	(mname (module-name mod))
-	(dlist (module-defined-list mod)))
+  (let* ((exports (module-export-list mod))
+	 (mname (module-name mod))
+         (r7lib (##sys#get mname '##r7rs#module))
+	 (dlist (module-defined-list mod)))
     (define (warn msg id)
-      (##sys#warn
-       (string-append msg " in module `" (symbol->string mname) "'")
-       id))
+      (unless r7lib
+        (##sys#warn
+          (string-append msg " in module `" (symbol->string mname) "'")
+          id)))
     (if (eq? #t exports)
 	'()
 	(let loop ((exports exports))	; walk export list