suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing pr10991

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
collects/web-server/scribblings/web-cells.scrbl
View File

@ -67,20 +67,22 @@ 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
(let loop () (λ (k)
(k (let loop ()
(lambda (embed/url) (k
`(div (h3 ,(number->string (web-cell-ref a-counter))) (lambda (embed/url)
(a ([href `(div (h3 ,(number->string (web-cell-ref a-counter)))
,(embed/url (a ([href
(lambda _ ,(embed/url
@code:comment{A new frame has been created} (lambda _
(define last (web-cell-ref a-counter)) ; A new frame has been created
@code:comment{We can inspect the value at the parent} (define last (web-cell-ref a-counter))
(web-cell-shadow a-counter (add1 last)) ; We can inspect the value at the parent
@code:comment{The new frame has been modified} (web-cell-shadow a-counter (add1 last))
(loop)))]) ; The new frame has been modified
"+"))))))) (loop)))])
"+"))))))
servlet-prompt))
] ]
} }

2
collects/web-server/scribblings/web.scrbl
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 Checks if @racket[u] is a URL that refers to a continuation, if so
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.}
} }