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,20 +67,22 @@ transformations of the program into continuation or store passing style.
(make-web-cell 0))
(define (include-counter a-counter)
(let/cc k
(let loop ()
(k
(lambda (embed/url)
`(div (h3 ,(number->string (web-cell-ref a-counter)))
(a ([href
,(embed/url
(lambda _
@code:comment{A new frame has been created}
(define last (web-cell-ref a-counter))
@code:comment{We can inspect the value at the parent}
(web-cell-shadow a-counter (add1 last))
@code:comment{The new frame has been modified}
(loop)))])
"+")))))))
(call-with-current-continuation
(λ (k)
(let loop ()
(k
(lambda (embed/url)
`(div (h3 ,(number->string (web-cell-ref a-counter)))
(a ([href
,(embed/url
(lambda _
; A new frame has been created
(define last (web-cell-ref a-counter))
; We can inspect the value at the parent
(web-cell-shadow a-counter (add1 last))
; The new frame has been modified
(loop)))])
"+"))))))
servlet-prompt))
]
}

View File

@ -203,5 +203,7 @@ functions of interest for the servlet developer.
Checks if @racket[u] is a URL that refers to a continuation, if so
returns the instance id, continuation id, and nonce.
}
@defthing[servlet-prompt continuation-prompt-tag?]{The tag used for Web interaction continuation capture.}
}