Fixing pr10991

This commit is contained in:
Jay McCarthy 2010-06-26 15:57:23 -06:00
parent c48d1b58b4
commit 92cb668c30
2 changed files with 19 additions and 15 deletions

View File

@ -67,7 +67,8 @@ transformations of the program into continuation or store passing style.
(make-web-cell 0)) (make-web-cell 0))
(define (include-counter a-counter) (define (include-counter a-counter)
(let/cc k (call-with-current-continuation
(λ (k)
(let loop () (let loop ()
(k (k
(lambda (embed/url) (lambda (embed/url)
@ -75,12 +76,13 @@ transformations of the program into continuation or store passing style.
(a ([href (a ([href
,(embed/url ,(embed/url
(lambda _ (lambda _
@code:comment{A new frame has been created} ; A new frame has been created
(define last (web-cell-ref a-counter)) (define last (web-cell-ref a-counter))
@code:comment{We can inspect the value at the parent} ; We can inspect the value at the parent
(web-cell-shadow a-counter (add1 last)) (web-cell-shadow a-counter (add1 last))
@code:comment{The new frame has been modified} ; The new frame has been modified
(loop)))]) (loop)))])
"+"))))))) "+"))))))
servlet-prompt))
] ]
} }

View File

@ -204,4 +204,6 @@ functions of interest for the servlet developer.
returns the instance id, continuation id, and nonce. returns the instance id, continuation id, and nonce.
} }
@defthing[servlet-prompt continuation-prompt-tag?]{The tag used for Web interaction continuation capture.}
} }