From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 11 Mar 2016 04:19:34 +0000 (-0700)
Subject: ffi/build.scm (update-html-index): Do not forget the .html suffix.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~75^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=502f4ae6a35e487257929c519ce94e45e83cf7c3;p=mit-scheme.git

ffi/build.scm (update-html-index): Do not forget the .html suffix.

And dodge a bullet when there are no plugin manuals installed.
---

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.