Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | included an explicit return in the request handler continuation |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
7b68b3ded9c77372ba97bfc32b122218 |
| User & Date: | murphy 2011-09-23 21:24:01 |
Context
|
2011-09-23
| ||
| 21:26 | added an example for suspensions check-in: e9f3970674 user: murphy tags: trunk | |
| 21:24 | included an explicit return in the request handler continuation check-in: 7b68b3ded9 user: murphy tags: trunk | |
| 20:39 | Updated the .meta file check-in: 626e07cb91 user: murphy tags: trunk | |
Changes
Changes to webgate.scm.
682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 |
(make-thread
(lambda ()
(call-with-current-continuation
(lambda (return)
(thread-specific-set!
(current-thread)
(%make-resource-context getenv return))
(proc parameters)))))))))
(else
(make-error-response
404 "The requested resource was not found by the server.")))
(make-response 204 '()))))
output-port))
)
|
| > > |
682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 |
(make-thread (lambda () (call-with-current-continuation (lambda (return) (thread-specific-set! (current-thread) (%make-resource-context getenv return)) (let ((rsp (proc parameters))) ((resource-context-return (current-resource-context)) rsp)))))))))) (else (make-error-response 404 "The requested resource was not found by the server."))) (make-response 204 '())))) output-port)) ) |