scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

move reset calls forward

This commit is contained in:
interp 2002-09-18 08:57:28 +00:00
parent e8463d7005
commit ac880e4491
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/httpd/surflets/surflet-handler.scm
View File

@ -65,14 +65,12 @@
(define (launch-new-instance full-path req) (define (launch-new-instance full-path req)
(let ((instance-id (generate-new-instance-id)) (let ((instance-id (generate-new-instance-id))
(plugin (get-plugin-rt-structure full-path))) (plugin (get-plugin-rt-structure full-path)))
(save-instance! full-path instance-id) ; make entry in instance-table
(reset (reset
(begin (begin
(save-instance! full-path instance-id) ; make entry in instance-table
(register-session! instance-id 'no-return) (register-session! instance-id 'no-return)
(with-names-from-rt-structure (with-names-from-rt-structure
plugin plugin-interface plugin plugin-interface
;; MAIN may return in another thread, so we have to lookup
;; return continuation explicitly
(main req)))))) (main req))))))
;; try to get continuation-table and then the continuation ;; try to get continuation-table and then the continuation
@ -97,7 +95,7 @@ You can try starting at the <A HREF=~a>beginning</a>."
(begin (begin
(register-session! instance-id 'no-return) (register-session! instance-id 'no-return)
; (error "This may never return." ; for debugging ; (error "This may never return." ; for debugging
(resume req))))))))))) (resume req)))))))))))
(define (send/suspend response-maker) (define (send/suspend response-maker)