Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 05:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing bug in package-docs on trivial docs.

Browse source
This commit is contained in:
Alex Shinn 2015-05-03 08:10:27 +09:00
parent 7cea27ec20
commit 92e2f16c41
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/snow/commands.scm
View file

@ -349,7 +349,8 @@
(let ((lib-name (library-file-name lib)) (let ((lib-name (library-file-name lib))
(docs (extract-module-file-docs lib #f))) (docs (extract-module-file-docs lib #f)))
(and (pair? docs) (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 `(inline
,(string-append (library-name->path cfg lib-name) ".html") ,(string-append (library-name->path cfg lib-name) ".html")
,(call-with-output-string ,(call-with-output-string