WebGate

Check-in [7b68b3ded9]
Login

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
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7b68b3ded9c77372ba97bfc32b122218f938a076
User & Date: murphy 2011-09-23 21:24:01.715
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
Unified Diff Ignore Whitespace Patch
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))

)