From eabd90dcc3a08c34421a675198546aeb0ff29128 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 1 May 2017 09:50:14 -0700 Subject: [PATCH] ffi/build: Temporary pathnames should be filenames. --- src/ffi/build.scm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/src/ffi/build.scm b/src/ffi/build.scm index 099d3fcf0..0a82740d3 100644 --- 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)))) -- 2.25.1