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 5e66da772611492559784fed8fca21a17689df60..97a2abfeca7c4d72f18c40062637b3ac945f6a35 100644 (file)
--- 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)