[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/06: ui: Report file names in 'system-error' exceptions from 'execlp'.
From: |
guix-commits |
Subject: |
01/06: ui: Report file names in 'system-error' exceptions from 'execlp'. |
Date: |
Tue, 18 Dec 2018 10:04:32 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 6616a35202378dd8d33fcf5f32ca57ee08e1a09e
Author: Timothy Sample <address@hidden>
Date: Sun Dec 16 23:12:13 2018 -0500
ui: Report file names in 'system-error' exceptions from 'execlp'.
Fixes <https://bugs.gnu.org/33755>.
* guix/ui.scm (apply-formals): New macro.
(execlp): New error-reporting wrapper.
Signed-off-by: Ludovic Courtès <address@hidden>
---
guix/ui.scm | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/guix/ui.scm b/guix/ui.scm
index 60636ed..148c181 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -502,14 +502,19 @@ General help using GNU software:
<http://www.gnu.org/gethelp/>"))
(list (strerror (car errno)) file)
(list errno))))
-(define-syntax-rule (error-reporting-wrapper proc (args ...) file)
+(define-syntax apply-formals
+ (syntax-rules ()
+ ((_ proc (args ...)) (proc args ...))
+ ((_ proc (arg1 args ... . rest)) (apply proc arg1 args ... rest))))
+
+(define-syntax-rule (error-reporting-wrapper proc formals file)
"Wrap PROC such that its 'system-error' exceptions are augmented to mention
FILE."
(let ((real-proc (@ (guile) proc)))
- (lambda (args ...)
+ (lambda formals
(catch 'system-error
(lambda ()
- (real-proc args ...))
+ (apply-formals real-proc formals))
(augmented-system-error-handler file)))))
(set! symlink
@@ -528,6 +533,8 @@ FILE."
(set! delete-file
(error-reporting-wrapper delete-file (file) file))
+(set! execlp
+ (error-reporting-wrapper execlp (filename . args) filename))
(define (make-regexp* regexp . flags)
"Like 'make-regexp' but error out if REGEXP is invalid, reporting the error
- branch master updated (83d4da1 -> 5de5f81), guix-commits, 2018/12/18
- 06/06: file-systems: Have the emergency REPL output to /dev/console., guix-commits, 2018/12/18
- 01/06: ui: Report file names in 'system-error' exceptions from 'execlp'.,
guix-commits <=
- 03/06: guix system: Clarify the three strategies available., guix-commits, 2018/12/18
- 04/06: doc: Remove stale reference to 'hydra.gnu.org'., guix-commits, 2018/12/18
- 05/06: file-systems: Spawn a REPL only when interaction is possible., guix-commits, 2018/12/18
- 02/06: doc: Fix typo in '.guix-channel' example., guix-commits, 2018/12/18