ffi/build: Load option synchronous-subprocess when necessary.

diff --git a/src/ffi/build.scm b/src/ffi/build.scm
index 0a82740d3b4e4530da51e165a435e1ee635956ba..1cab02e59401b922b5a06d86e4c26ff112588272 100644 (file)
--- a/src/ffi/build.scm
+++ b/src/ffi/build.scm
@@ -289,7 +289,8 @@ USA.
        compressed-file-suffixes.progs))
 
 (define (un/compress-file program infile outfile)
-  (let ((cmdline (string program" < '"infile"' > '"outfile"'")))
+  (load-option 'synchronous-subprocess)
+  (let ((cmdline (string program" < "infile" > "outfile)))
     (if (not (zero? (run-shell-command cmdline)))
        (error "File un/compress failed:" cmdline))))