cps: delta tweak

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

diff --git a/hints/cps_hint_4.mdwn b/hints/cps_hint_4.mdwn
index 13add0a..09a45af 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)]