Merge branch 'pryor'

[lambda.git] / hints / cps_hint_4.mdwn

diff --git a/hints/cps_hint_4.mdwn b/hints/cps_hint_4.mdwn
index 13add0a..028504c 100644 (file)
--- a/hints/cps_hint_4.mdwn
+++ b/hints/cps_hint_4.mdwn
@@ -40,7 +40,7 @@ This function is developed in *The Seasoned Schemer* pp. 165-177. It accepts a l
              (let ([fst (let/cc k1 (begin
                           (set! yield k1) ; now calling yield with val will bind fst to val and continue with the (cond ...) block below
                           (walk lst)
-                          ; the next line will be executed only when lst contains no atoms
+                          ; the next line will be executed when we've walked to the end of lst
                           (yield '())))])
                (cond
                  [(atom? fst) (check fst)]
@@ -52,4 +52,5 @@ This function is developed in *The Seasoned Schemer* pp. 165-177. It accepts a l
        (delta '(((a b) ()) (c (d (d)))))  ; ~~> #t
        (delta '(((a b c) ()) (c (d ())))) ; ~~> #t
        (delta '(((a b) ()) (c (d ()) c))) ; ~~> #f
+       (delta '((() ()) ()))              ; ~~> #f