From b07ab146b53a1305de96cbc6f9844660920329d5 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sat, 28 Nov 2015 07:58:34 -0600 Subject: [PATCH] print out quoted key with print-error-and-continue --- eightsync/agenda.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/eightsync/agenda.scm b/eightsync/agenda.scm index 9f54e17..7ee0ec4 100644 --- a/eightsync/agenda.scm +++ b/eightsync/agenda.scm @@ -698,10 +698,11 @@ return the wrong thing via (%8sync) and trip themselves up." (agenda-queue agenda)) (loop agenda)))))) -(define (print-error-and-continue . args) +(define (print-error-and-continue key . args) "Frequently used as pre-unwind-handler for agenda" - (format (current-error-port) "\n*** Caught exception with arguments: ~s ***\n" - args) + (format (current-error-port) + "\n*** Caught exception with key '~s and arguments: ~s ***\n" + key args) (display-backtrace (make-stack #t 1 0) (current-error-port)) (newline (current-error-port))) -- 2.31.1