From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sat, 8 Dec 2018 19:21:06 +0000 (-0700)
Subject: ffi/build: Mixing strings and pathnames is problematic.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~13
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f14dc67892c81b50db254a0ffcf2f5905a15ebb4;p=mit-scheme.git

ffi/build: Mixing strings and pathnames is problematic.

In this case rewrite-compressed-file expected a string.  It probably
should expect a pathname, but it is just going to get weird with it.
---

diff --git a/src/ffi/build.scm b/src/ffi/build.scm
index 5e66da772..97a2abfec 100644
--- a/src/ffi/build.scm
+++ b/src/ffi/build.scm
@@ -91,7 +91,7 @@ USA.
 	'())))
 
 (define (update-plugins-file operation name dir)
-  (let ((filename (merge-pathnames "plugins.scm" dir)))
+  (let ((filename (string dir"plugins.scm")))
     (if (file-exists? filename)
 	(rewrite-file filename
 	  (lambda (in out)