From 6d7421674411dbbd0cd48910aecc197f316e6879 Mon Sep 17 00:00:00 2001 From: Jim Pryor Date: Tue, 21 Dec 2010 11:02:36 -0500 Subject: [PATCH] cps: delta tweak Signed-off-by: Jim Pryor --- hints/cps_hint_4.mdwn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)] -- 2.11.0