newline after not-found message

svn: r8138
This commit is contained in:
Eli Barzilay 2007-12-27 16:32:48 +00:00
parent 53bf8bae8e
commit c719f1c506

View File

@ -92,7 +92,7 @@
(set! libs (append libs (exported-index-desc-from-libs (entry-desc entry)))))))
idx)
(if (null? libs)
(printf "Not found in any library's documentation: ~a" sym)
(printf "Not found in any library's documentation: ~a\n" sym)
(begin
(printf "No documentation for current binding, but provided by:\n")
(let loop ([libs libs])