From 4a06997978d6a2cfcf0b8942899d83c0d95e22a5 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Thu, 13 May 2021 22:10:30 +0900
Subject: [PATCH] guard against failed module-ref

---
 lib/chibi/doc.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/doc.scm b/lib/chibi/doc.scm
index ec80c3bf..ed7c0a21 100644
--- a/lib/chibi/doc.scm
+++ b/lib/chibi/doc.scm
@@ -1039,7 +1039,8 @@ h4 { color: #222288; border-top: 1px solid #4588ba; }
 (define (extract-module-docs-from-files mod srcs includes stubs strict? exports . o)
   (let ((dir (or (and (pair? o) (car o)) (module-dir mod)))
         (defs (map (lambda (x)
-                     (let ((val (and mod (module-ref mod x))))
+                     (let ((val (and mod (protect (exn (else #f))
+                                           (module-ref mod x)))))
                        `(,x ,val ,(object-source val))))
                    exports)))
     (define (resolve-file file)