From 363d1bc12dfa8e7984f007044c0542e48fb9b53a Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 1 May 2017 14:10:59 -0700 Subject: [PATCH] ffi/build: Load option synchronous-subprocess when necessary. --- src/ffi/build.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)))) -- 2.25.1