catch all errors

2017-04-09 16:04:54 +02:00 · 2017-04-09 16:04:54 +02:00 · 2446a63281
parent 6e556508f5
commit 2446a63281
1 changed files with 3 additions and 1 deletions
--- a/gash/pipe.scm
+++ b/gash/pipe.scm
@ -20,7 +20,9 @@
 ;; [source] w -> r [filter] w -> r [sink]

 (define (exec* command) ;; list of strings
-  (apply execlp (cons (car command) command)))
+  (catch #t (lambda () (apply execlp (cons (car command) command)))
+    (lambda (key . args) (display (string-append (caaddr args) "\n"))
+            (exit #f))))

 (define (setup-process fg? job)
  (when (isatty? (current-error-port))