Make use of %8sync-run in tests
authorChristopher Allan Webber <cwebber@dustycloud.org>
Sun, 29 Nov 2015 18:15:48 +0000 (12:15 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Sun, 29 Nov 2015 18:15:48 +0000 (12:15 -0600)
* tests/test-agenda.scm (local-func-gets-break):
  Switched from `(%8sync (run foo))' to `(%8sync-run foo)'

tests/test-agenda.scm

index f6a57c19fe63022004db363701b6f03908e6c264..628fb1e4ea80070555d691d07b2a3ed82726a98f 100644 (file)
   (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)