From 3622ea1468104f100b2ed5f6611f31785ed86814 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sun, 29 Nov 2015 12:15:48 -0600 Subject: [PATCH] Make use of %8sync-run in tests * tests/test-agenda.scm (local-func-gets-break): Switched from `(%8sync (run foo))' to `(%8sync-run foo)' --- tests/test-agenda.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.31.1