projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
print out quoted key with print-error-and-continue
[8sync.git]
/
eightsync
/
agenda.scm
diff --git
a/eightsync/agenda.scm
b/eightsync/agenda.scm
index 9f54e17aa06ca2faf76c652de922e803bfb027af..7ee0ec4d9dd11d24350905eabcb90f2199e18896 100644
(file)
--- 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))))))
(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"
"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)))
(display-backtrace (make-stack #t 1 0)
(current-error-port))
(newline (current-error-port)))