suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chasing infinite loop

Browse Source
This commit is contained in:
Danny Yoo 2011-09-12 12:21:34 -04:00
parent 38cb67a63c
commit a1660fb5cb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
web-world/examples/forward-backward/forward-backward.rkt
View File

@ -21,7 +21,7 @@
updated-view])) updated-view]))
(define (iterate n f x) (define (iterate n f x)
(if (= n 0) (if (<= n 0)
x x
(iterate (sub1 n ) f (f x)))) (iterate (sub1 n ) f (f x))))