From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 10 Mar 2016 21:38:52 +0000 (-0700)
Subject: ffi/build.scm (update-html-index): Do not strip the mit-scheme- prefix.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~75^2~7
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b503bb0f2aa4a865f780e60842cb81cc058a7405;p=mit-scheme.git

ffi/build.scm (update-html-index): Do not strip the mit-scheme- prefix.

The plugin Makefile.ams install --no-split .html to the same name as
the .info by default.  (The .info goes in a shared info/ directory and
thus needs the prefix.)
---

diff --git a/src/ffi/build.scm b/src/ffi/build.scm
index 5b0abc438..cd0624633 100644
--- a/src/ffi/build.scm
+++ b/src/ffi/build.scm
@@ -113,8 +113,7 @@ USA.
 			     (string=? "html" (pathname-type (car files)))
 			     (string-prefix? "mit-scheme-"
 					     (pathname-name (car files))))
-			(let ((name (string-tail (pathname-name (car files))
-						 (string-length "mit-scheme-")))
+			(let ((name (pathname-name (car files)))
 			      (title (read-html-title (car files))))
 			  (cons (cons name title) names.titles))
 			names.titles))