From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 17 Sep 2013 17:14:32 +0000 (-0700)
Subject: ffi/build.scm.in: Simplify commandline echoing.
X-Git-Tag: release-9.2.0~105
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9c865d522eafb419e4eb9763ac6b4ac3cbcd6847;p=mit-scheme.git

ffi/build.scm.in: Simplify commandline echoing.
---

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