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 0e39ca8f2f0bac8d56aee32174b39ef51ebacab0..ecc5a494352a8d4a0554266f4e18b2a112a7f3f9 100644 (file)
--- 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 cd0624633ab0a284925e2ecd0f88d0c4c725fa93..46fdacca341d200145ccf6076edfd6af10833e13 100644 (file)
--- 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.