From 9c865d522eafb419e4eb9763ac6b4ac3cbcd6847 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 17 Sep 2013 10:14:32 -0700 Subject: [PATCH] ffi/build.scm.in: Simplify commandline echoing. --- src/ffi/build.scm.in | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/src/ffi/build.scm.in b/src/ffi/build.scm.in index 4a44dfded..10ea8e745 100644 --- a/src/ffi/build.scm.in +++ b/src/ffi/build.scm.in @@ -101,13 +101,11 @@ USA. (parse-words "@CFLAGS@ @MODULE_CFLAGS@"))) (define (run-command command) - (with-notification - (lambda (port) - (write-string (decorated-string-append "" " " "" command) port) - (newline port)) - (lambda () - (let ((code (run-synchronous-subprocess - (car command) (cdr command) - 'working-directory (working-directory-pathname)))) - (if (not (zero? code)) - (error "Process exited with error code:" code command)))))) \ No newline at end of file + (fresh-line) + (write-string (decorated-string-append "" " " "" command)) + (newline) + (let ((code (run-synchronous-subprocess + (car command) (cdr command) + 'working-directory (working-directory-pathname)))) + (if (not (zero? code)) + (error "Process exited with error code:" code command)))) \ No newline at end of file -- 2.25.1