From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 1 May 2017 21:10:59 +0000 (-0700)
Subject: ffi/build: Load option synchronous-subprocess when necessary.
X-Git-Tag: mit-scheme-pucked-9.2.12~138
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=363d1bc12dfa8e7984f007044c0542e48fb9b53a;p=mit-scheme.git

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

diff --git a/src/ffi/build.scm b/src/ffi/build.scm
index 0a82740d3..1cab02e59 100644
--- 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))))