Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

guard against failed module-ref

Browse source
This commit is contained in:
Alex Shinn 2021-05-13 22:10:30 +09:00
parent f817dbaf96
commit 4a06997978
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/doc.scm
View file

@ -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) (define (extract-module-docs-from-files mod srcs includes stubs strict? exports . o)
(let ((dir (or (and (pair? o) (car o)) (module-dir mod))) (let ((dir (or (and (pair? o) (car o)) (module-dir mod)))
(defs (map (lambda (x) (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)))) `(,x ,val ,(object-source val))))
exports))) exports)))
(define (resolve-file file) (define (resolve-file file)