week9 tweak

[lambda.git] / hints / cps_hint_4.mdwn

diff --git a/hints/cps_hint_4.mdwn b/hints/cps_hint_4.mdwn
index 2dc984d..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


@@ -47,9 +47,9 @@ This function is developed in *The Seasoned Schemer* pp. 165-177. It accepts a l
                  [else #f])
                ))))
        
                  [else #f])
                ))))
        

-       (delta '(((a b) ()) (c (d ())))) ; ~~> #f
-       (delta '(((a b) ()) (b (d ())))) ; ~~> #t
-       (delta '(((a b) ()) (c (d (d))))) ; ~~> #t
+       (delta '(((a b) ()) (c (d ()))))   ; ~~> #f
+       (delta '(((a b) ()) (b (d ()))))   ; ~~> #t
+       (delta '(((a b) ()) (c (d (d)))))  ; ~~> #t

        (delta '(((a b c) ()) (c (d ())))) ; ~~> #t
        (delta '(((a b) ()) (c (d ()) c))) ; ~~> #f
 
        (delta '(((a b c) ()) (c (d ())))) ; ~~> #t
        (delta '(((a b) ()) (c (d ()) c))) ; ~~> #f