~ chicken-core (master) 4a6a49e7f64ba58f7c342dfaa80a29c8396c46ac

commit 4a6a49e7f64ba58f7c342dfaa80a29c8396c46ac
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Mar 3 19:34:24 2026 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Mar 3 19:34:24 2026 +0100

    unused code

diff --git a/modules.scm b/modules.scm
index 2954ca19..5edda53d 100644
--- a/modules.scm
+++ b/modules.scm
@@ -280,12 +280,6 @@
   (let ((exports (module-export-list mod))
 	(mname (module-name mod))
 	(dlist (module-defined-list mod)))
-    (define (indirect? id)
-      (let loop ((exports exports))
-	(and (not (null? exports))
-	     (or (and (pair? (car exports))
-		      (memq id (cdar exports)))
-		 (loop (cdr exports))))))
     (define (warn msg id)
       (##sys#warn
        (string-append msg " in module `" (symbol->string mname) "'")