From ef9daf22c8797fa1e35157ccbb1a0d0be85ce619 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Mon, 26 Apr 2021 14:27:11 +0900
Subject: [PATCH] handle include-shared in analyze-module

---
 lib/chibi/modules.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/chibi/modules.scm b/lib/chibi/modules.scm
index 7389494b..5f0b4310 100644
--- a/lib/chibi/modules.scm
+++ b/lib/chibi/modules.scm
@@ -117,6 +117,12 @@
            (lp (append (map include-source (cdar ls)) (cdr ls)) res))
           ((include-library-declarations)
            (lp (append (append-map file->sexp-list (map resolve-file (cdar ls))) (cdr ls)) res))
+          ((include-shared include-shared-optionally)
+           (for-each
+            (lambda (file)
+              (let ((f (string-append file *shared-object-extension*)))
+                (cond ((find-module-file f) => (lambda (path) (load path env))))))
+            (cdar ls)))
           ((begin body)
            (let lp2 ((ls2 (cdar ls)) (res res))
              (cond