ffi/build: Temporary pathnames should be filenames.

diff --git a/src/ffi/build.scm b/src/ffi/build.scm
index 099d3fcf0fab7ec5bfedf5f1718f54ec64a71479..0a82740d3b4e4530da51e165a435e1ee635956ba 100644 (file)
--- a/src/ffi/build.scm
+++ b/src/ffi/build.scm
@@ -235,7 +235,9 @@ USA.
   (let ((compressed (string filename"."(car suffix.progs))))
     (call-with-temporary-file-pathname
      (lambda (uncompressed)
-       (un/compress-file (cddr suffix.progs) compressed uncompressed)
+       (un/compress-file (cddr suffix.progs)
+                        compressed
+                        (->namestring uncompressed))
        (call-with-temporary-file-pathname
        (lambda (transformed)
          (let ((value
@@ -250,7 +252,9 @@ USA.
              (with-temporary-file
               replacement
               (lambda ()
-                (un/compress-file (cadr suffix.progs) transformed replacement)
+                (un/compress-file (cadr suffix.progs)
+                                  (->namestring transformed)
+                                  replacement)
                 (rename-file replacement compressed))))
            value)))))))
 
@@ -260,7 +264,9 @@ USA.
        (let ((compressed (string filename"."(car suffix.progs))))
          (call-with-temporary-file-pathname
           (lambda (uncompressed)
-            (un/compress-file (cddr suffix.progs) compressed uncompressed)
+            (un/compress-file (cddr suffix.progs)
+                              compressed
+                              (->namestring uncompressed))
             (call-with-input-file uncompressed receiver))))
        (call-with-input-file filename receiver))))