chasing infinite loop

2011-09-12 12:21:34 -04:00 · 2011-09-12 12:21:34 -04:00 · a1660fb5cb
commit a1660fb5cb
parent 38cb67a63c
1 changed files with 1 additions and 1 deletions
--- 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))))