From 502f4ae6a35e487257929c519ce94e45e83cf7c3 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 10 Mar 2016 21:19:34 -0700
Subject: [PATCH] ffi/build.scm (update-html-index): Do not forget the .html
 suffix.

And dodge a bullet when there are no plugin manuals installed.
---
 doc/index.html    | 4 ++--
 src/ffi/build.scm | 5 ++---
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/doc/index.html b/doc/index.html
index 0e39ca8f2..ecc5a4943 100644
--- a/doc/index.html
+++ b/doc/index.html
@@ -18,11 +18,11 @@ The following MIT/GNU Scheme manuals are available.
 <li><a href="mit-scheme-ffi/index.html">Foreign Function Interface</a></li>
 </ul>
 
-The following manuals for installed plugins are also available.
+The following plugin manuals are also available.
 
 <ul id="plugins">
 <!-- DO NOT EDIT this list.  Any edits will be clobbered. -->
-<li><i>None currently installed.</i></li>
+<i>None currently installed.</i>
 </ul>
 
 </body>
diff --git a/src/ffi/build.scm b/src/ffi/build.scm
index cd0624633..46fdacca3 100644
--- a/src/ffi/build.scm
+++ b/src/ffi/build.scm
@@ -101,7 +101,7 @@ USA.
        (lambda (name.title)
 	 (write-string "<li><a href=\"" out)
 	 (write-string (car name.title) out)
-	 (write-string "\">" out)
+	 (write-string ".html\">" out)
 	 (write-string (cdr name.title) out)
 	 (write-string "</a></li>\n" out))
        (sort
@@ -120,8 +120,7 @@ USA.
 	      (if (pair? names.titles)
 		  names.titles
 		  (begin
-		    (write-string "<li><i>None currently installed.</i></li>\n"
-				  out)
+		    (write-string "<i>None currently installed.</i>\n" out)
 		    '()))))
 	(lambda (a b) (string<? (car a) (car b)))))
      ;; Skip old list.
-- 
2.25.1