cps tweak

Signed-off-by: Jim Pryor <profjim@jimpryor.net>

diff --git a/hints/cps_hint_4.mdwn b/hints/cps_hint_4.mdwn
index 7229670..9804ed6 100644 (file)
--- a/hints/cps_hint_4.mdwn
+++ b/hints/cps_hint_4.mdwn
@@ -15,7 +15,7 @@ This function is developed in *The Seasoned Schemer* pp. 165-177. It accepts a l
                             [(atom? (car l)) (begin
                                                (let/cc k2
                                                  (set! resume k2) ; now calling resume with val will ignore val
                             [(atom? (car l)) (begin
                                                (let/cc k2
                                                  (set! resume k2) ; now calling resume with val will ignore val

-                                                                  ; and continue with the second line of (begin ... (walk (cdr l)))
+                                                                  ; and continue with the final line of (begin ... (walk (cdr l)))

                                                  ; when the next line is executed, yield will be bound to k1 or k3
                                                  (yield (car l)))
                                                ; the previous yield line will never return, but the following line will be executed when resume is called
                                                  ; when the next line is executed, yield will be bound to k1 or k3
                                                  (yield (car l)))
                                                ; the previous yield line will never return, but the following line will be executed when resume is called