~ chicken-core (chicken-5) 48960b282d781efbaad329b39bbbb96955f1b0e1


commit 48960b282d781efbaad329b39bbbb96955f1b0e1
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Aug 12 22:04:00 2025 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Aug 12 22:04:00 2025 +0200

    missing argument in call to ##sys#find-module

diff --git a/modules.scm b/modules.scm
index 491d529d..3dec9f93 100644
--- a/modules.scm
+++ b/modules.scm
@@ -664,7 +664,7 @@
        (lambda ()
          (fluid-let ((##sys#notices-enabled #f)) ; to avoid re-import warnings
            (load il)
-           (##sys#find-module mname 'import))))))
+           (##sys#find-module mname #t 'import))))))
 
 (define (find-module/import-library lib loc)
   (let ((mname (##sys#resolve-module-name lib loc)))
Trap