From 92e2f16c41b34950bd1a738f26522e0ae5d0c7ff Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 3 May 2015 08:10:27 +0900 Subject: [PATCH] Fixing bug in package-docs on trivial docs. --- lib/chibi/snow/commands.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index 12859f98..1c8e4b5d 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -349,7 +349,8 @@ (let ((lib-name (library-file-name lib)) (docs (extract-module-file-docs lib #f))) (and (pair? docs) - (not (and (= 1 (length docs)) (eq? 'subsection (caar docs)))) + (not (and (= 1 (length docs)) (pair? (car docs)) + (eq? 'subsection (caar docs)))) `(inline ,(string-append (library-name->path cfg lib-name) ".html") ,(call-with-output-string