From: Christopher Allan Webber Date: Sat, 28 Nov 2015 13:58:34 +0000 (-0600) Subject: print out quoted key with print-error-and-continue X-Git-Tag: v0.1.0~53 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=b07ab146b53a1305de96cbc6f9844660920329d5;p=8sync.git print out quoted key with print-error-and-continue --- 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)))