projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
switch %8sync-caught-error to 8sync-caught-error
[8sync.git]
/
eightsync
/
agenda.scm
diff --git
a/eightsync/agenda.scm
b/eightsync/agenda.scm
index edade135c09499e7b08beaf86c573c01d5fb3e1e..27c0d7d2371feb023853372035ad7e810391622f 100644
(file)
--- a/
eightsync/agenda.scm
+++ b/
eightsync/agenda.scm
@@
-479,7
+479,7
@@
return the wrong thing via (%8sync) and trip themselves up."
(define-syntax-rule (propagate-%async-exceptions body)
(let ((body-result body))
(if (wrapped-exception? body-result)
(define-syntax-rule (propagate-%async-exceptions body)
(let ((body-result body))
(if (wrapped-exception? body-result)
- (throw '
%
8sync-caught-error
+ (throw '8sync-caught-error
(wrapped-exception-key body-result)
(wrapped-exception-args body-result)
(wrapped-exception-stacks body-result))
(wrapped-exception-key body-result)
(wrapped-exception-args body-result)
(wrapped-exception-stacks body-result))
@@
-515,7
+515,7
@@
return the wrong thing via (%8sync) and trip themselves up."
;; @@: For this stack to work doesn't it have to be
(lambda (key . args)
(cond
;; @@: For this stack to work doesn't it have to be
(lambda (key . args)
(cond
- ((eq? key '
%
8sync-caught-error)
+ ((eq? key '8sync-caught-error)
(match args
((orig-key orig-args orig-stacks)
(make-wrapped-exception
(match args
((orig-key orig-args orig-stacks)
(make-wrapped-exception
@@
-546,7
+546,7
@@
return the wrong thing via (%8sync) and trip themselves up."
body ...)))))
(define-syntax-rule (catch-8sync exp (handler-key handler) ...)
body ...)))))
(define-syntax-rule (catch-8sync exp (handler-key handler) ...)
- (catch '
%
8sync-caught-error
+ (catch '8sync-caught-error
(lambda ()
exp)
(lambda (_ orig-key orig-args orig-stacks)
(lambda ()
exp)
(lambda (_ orig-key orig-args orig-stacks)
@@
-554,7
+554,7
@@
return the wrong thing via (%8sync) and trip themselves up."
((or (eq? handler-key #t)
(eq? orig-key handler-key))
(apply handler orig-stacks orig-args)) ...
((or (eq? handler-key #t)
(eq? orig-key handler-key))
(apply handler orig-stacks orig-args)) ...
- (else (raise '
%
8sync-caught-error
+ (else (raise '8sync-caught-error
orig-key orig-args orig-stacks))))))
;; Alias...?
orig-key orig-args orig-stacks))))))
;; Alias...?