From 70e629f5483bd3a5bf9c27e9f401d7d933dc222d Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 22 Jan 2015 22:43:46 +0100 Subject: guix system: Improve error messages. * guix/ui.scm (report-error): Export. * guix/scripts/system.scm (read-operating-system): Report syntax errors using standard GNU format. Report other errors using 'display-error'. --- guix/scripts/system.scm | 13 ++++++++----- guix/ui.scm | 1 + 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index b0974dcfcd..3eea872fe8 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -76,11 +76,14 @@ (define (read-operating-system file) file (strerror err)))) (('syntax-error proc message properties form . rest) (let ((loc (source-properties->location properties))) - (leave (_ "~a: ~a~%") - (location->string loc) message))) - (_ - (leave (_ "failed to load operating system file '~a': ~s~%") - file args)))))) + (format (current-error-port) (_ "~a: error: ~a~%") + (location->string loc) message) + (exit 1))) + ((error args ...) + (report-error (_ "failed to load operating system file '~a':~%") + file) + (apply display-error #f (current-error-port) args) + (exit 1)))))) ;;; diff --git a/guix/ui.scm b/guix/ui.scm index 5bd4d1f8c2..e1e75d8556 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -43,6 +43,7 @@ (define-module (guix ui) #:export (_ N_ P_ + report-error leave show-version-and-exit show-bug-report-information -- cgit v1.2.3