From e82dc626685875d56738e733f7e18203f2ac7f9d Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Wed, 27 Dec 2017 20:19:46 -0800 Subject: 4164 --- html/continuation4.mu.html | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'html/continuation4.mu.html') diff --git a/html/continuation4.mu.html b/html/continuation4.mu.html index c0be8dc7..7e62e661 100644 --- a/html/continuation4.mu.html +++ b/html/continuation4.mu.html @@ -79,7 +79,7 @@ if ('onhashchange' in window) { 19 l <- push 3, l 20 l <- push 2, l 21 l <- push 1, l -22 k:continuation, x:num, done?:bool <- call-with-continuation-mark 100/mark, create-yielder, l +22 k:continuation, x:num, done?:bool <- call-with-continuation-mark 100/mark, create-yielder, l 23 { 24 ¦ break-if done? 25 ¦ $print x 10/newline @@ -96,13 +96,13 @@ if ('onhashchange' in window) { 36 ¦ break-if done? 37 ¦ n <- first l 38 ¦ l <- rest l -39 ¦ return-continuation-until-mark 100/mark, n, done? +39 ¦ return-continuation-until-mark 100/mark, n, done? 40 ¦ loop 41 } 42 # A function that returns continuations shouldn't get the opportunity to 43 # return. Calling functions should stop calling its continuation after this 44 # point. -45 return-continuation-until-mark 100/mark, -1, done? +45 return-continuation-until-mark 100/mark, -1, done? 46 assert 0/false, [called too many times, ran out of continuations to return] 47 ] -- cgit 1.4.1-2-gfad0