projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make use of %8sync-run in tests
[8sync.git]
/
tests
/
test-agenda.scm
diff --git
a/tests/test-agenda.scm
b/tests/test-agenda.scm
index f6a57c19fe63022004db363701b6f03908e6c264..628fb1e4ea80070555d691d07b2a3ed82726a98f 100644
(file)
--- a/
tests/test-agenda.scm
+++ b/
tests/test-agenda.scm
@@
-369,9
+369,9
@@
(speaker "Time for exception fun!\n")
(let ((caught-exception #f))
(catch-8sync
(speaker "Time for exception fun!\n")
(let ((caught-exception #f))
(catch-8sync
- (%8sync
(%
run (if with-indirection
- (indirection-remote-func-breaks)
-
(remote-func-breaks)
)))
+ (%8sync
-
run (if with-indirection
+
(indirection-remote-func-breaks)
+
(remote-func-breaks
)))
('numerical-overflow
(lambda (orig-stacks . orig-args)
(set! caught-exception #t)
('numerical-overflow
(lambda (orig-stacks . orig-args)
(set! caught-exception #t)