diff options
author | Ludovic Courtès <ludo@gnu.org> | 2015-11-05 12:04:26 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2015-11-05 12:04:26 +0100 |
commit | 650f1615de325f332dbf3d993acc8a16648d795e (patch) | |
tree | c3c6222ce9aaa712e98da656c2bf55324f2f84b4 | |
parent | 67c920fa5d9a77543e0e950fdf26e2f502b656d8 (diff) | |
download | patches-650f1615de325f332dbf3d993acc8a16648d795e.tar patches-650f1615de325f332dbf3d993acc8a16648d795e.tar.gz |
edit: Improve error reporting when $EDITOR is not found.
Reported by Benno Evers <benno@bmevers.de>
at <https://lists.gnu.org/archive/html/guix-devel/2015-11/msg00125.html>.
* guix/scripts/edit.scm (guix-edit): Wrap 'execl' call in 'catch'.
Provide more meaningful error message.
-rw-r--r-- | guix/scripts/edit.scm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/guix/scripts/edit.scm b/guix/scripts/edit.scm index fa10a16f31..0509148c4d 100644 --- a/guix/scripts/edit.scm +++ b/guix/scripts/edit.scm @@ -79,5 +79,12 @@ line." (leave (_ "source location of package '~a' is unknown~%") (package-full-name package)))) packages) - (apply execlp (%editor) (%editor) - (append-map package->location-specification packages))))) + + (catch 'system-error + (lambda () + (apply execlp (%editor) (%editor) + (append-map package->location-specification packages))) + (lambda args + (let ((errno (system-error-errno args))) + (leave (_ "failed to launch '~a': ~a~%") + (%editor) (strerror errno)))))))) |