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

Reformat

Browse Source 
svn: r6309
This commit is contained in:
Jay McCarthy 2007-05-25 17:43:04 +00:00
parent 36a8fe7fd7
commit 3dffefe3c0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/prototype-web-server/abort-resume.ss
View File

@ -150,7 +150,9 @@
;; dispatch-start: request -> reponse ;; dispatch-start: request -> reponse
;; pass the initial request to the starting interaction point ;; pass the initial request to the starting interaction point
(define (dispatch-start req0) (define (dispatch-start req0)
(abort/cc (lambda () (start-continuation req0)))) (abort/cc
(lambda ()
(start-continuation req0))))
;; dispatch: request -> response ;; dispatch: request -> response
;; lookup the continuation for this request and invoke it ;; lookup the continuation for this request and invoke it