From d757311a3fbec95274d1b4b39b1d78e30b1bb5e3 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Tue, 24 Nov 2015 13:10:11 -0600 Subject: [PATCH] fix calls/references to %8sync --- 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 781703b..844356d 100644 --- a/tests/test-agenda.scm +++ b/tests/test-agenda.scm @@ -238,7 +238,7 @@ (test-equal (run-request-when run-two-squared) '(88 . 0))) -;;; %run, %sync and friends tests +;;; %run, %8sync and friends tests ;;; ----------------------------- (define (test-%run-and-friends async-request expected-when) @@ -266,7 +266,7 @@ (tdelta 8)) ;; TODO: test %port-request -;; TODO: test %sync and friends! +;; TODO: test %8sync and friends! ;;; Agenda tests @@ -319,7 +319,7 @@ (speaker "Today I went to the zoo and I saw...\n") (speaker (string-concatenate - `("A " ,(symbol->string (%sync (%run (return-monkey)))) "!\n")))) + `("A " ,(symbol->string (%8sync (%run (return-monkey)))) "!\n")))) (let ((q (make-q))) (set! speaker (speak-it)) -- 2.31.1