X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=hints%2Fcps_hint_4.mdwn;h=09a45af37bdb482f22d79c8af4e4dd0702d9ecc3;hp=13add0a233fcc614866f0ba6469917938d6f4c3e;hb=6d7421674411dbbd0cd48910aecc197f316e6879;hpb=413169d31f1670ffd98d2af8a962c050151cf662

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