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

diff --git a/src/ffi/build.scm.in b/src/ffi/build.scm.in
index 4a44dfded1d304034d6413043049028cb661d062..10ea8e74591e046a1e916e1465b1d300bb5b7f4c 100644 (file)
--- 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