From 35a90099f27585e853a8b8aee498c5228d8f9697 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Thu, 19 Nov 2015 15:25:55 -0600 Subject: [PATCH] add true-after-n-times to tests file --- tests.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/tests.scm b/tests.scm index 0c58624..c7fe1cd 100644 --- a/tests.scm +++ b/tests.scm @@ -211,6 +211,12 @@ (if message (set! messages (append messages (list message)))) messages))) +(define (true-after-n-times n) + (let ((count 0)) + (lambda _ + (set! count (+ count 1)) + (if (>= count n) #t #f)))) + ;; the dummy test (define speaker (speak-it)) -- 2.31.1