From a1660fb5cb82fb96c77c33b00b845107d343ccc5 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Mon, 12 Sep 2011 12:21:34 -0400 Subject: [PATCH] chasing infinite loop --- web-world/examples/forward-backward/forward-backward.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/web-world/examples/forward-backward/forward-backward.rkt b/web-world/examples/forward-backward/forward-backward.rkt index 8f2365c..17b2040 100644 --- a/web-world/examples/forward-backward/forward-backward.rkt +++ b/web-world/examples/forward-backward/forward-backward.rkt @@ -21,7 +21,7 @@ updated-view])) (define (iterate n f x) - (if (= n 0) + (if (<= n 0) x (iterate (sub1 n ) f (f x))))