From ac550495740ba4f8c87a9577145f6760a0ff00cd Mon Sep 17 00:00:00 2001 From: Chris Marusich Date: Fri, 5 Oct 2018 23:39:57 -0700 Subject: [PATCH] Add some debug statements --- guix/discovery.scm | 4 +++- guix/ui.scm | 4 ++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/guix/discovery.scm b/guix/discovery.scm index 3fc6e2c9e..af428825e 100644 --- a/guix/discovery.scm +++ b/guix/discovery.scm @@ -110,7 +110,9 @@ name and the exception key and arguments." (resolve-interface module)) (lambda args ;; Report the error, but keep going. - (warn module args) + (display "XXX before\n") + ((pk warn) (pk module) (pk args)) + (display "XXX after\n") #f)))) (scheme-files (if sub-directory (string-append directory "/" sub-directory) diff --git a/guix/ui.scm b/guix/ui.scm index 96f403acf..f28f80d4b 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -381,7 +381,7 @@ ARGS is the list of arguments received by the 'throw' handler." (define (warn-about-load-error file args) ;FIXME: factorize with ↑ "Report the failure to load FILE, a user-provided Scheme file, without exiting. ARGS is the list of arguments received by the 'throw' handler." - (match args + (match (pk args) (('system-error . rest) (let ((err (system-error-errno args))) (warning (G_ "failed to load '~a': ~a~%") file (strerror err)))) @@ -398,7 +398,7 @@ exiting. ARGS is the list of arguments received by the 'throw' handler." file obj))) ((error args ...) (warning (G_ "failed to load '~a':~%") file) - (apply display-error #f (current-error-port) args)))) + (apply display-error #f (pk (current-error-port)) (pk args))))) (define (call-with-unbound-variable-handling thunk) (define tag -- 2.18.0