From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sun, 29 Nov 2015 18:15:48 +0000 (-0600)
Subject: Make use of %8sync-run in tests
X-Git-Tag: v0.1.0~33
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=3622ea1468104f100b2ed5f6611f31785ed86814

Make use of %8sync-run in tests

* tests/test-agenda.scm (local-func-gets-break):
  Switched from `(%8sync (run foo))' to `(%8sync-run foo)'
---

diff --git a/tests/test-agenda.scm b/tests/test-agenda.scm
index f6a57c1..628fb1e 100644
--- 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
-     (%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)