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

View File

@ -65,14 +65,12 @@
(define (launch-new-instance full-path req)
(let ((instance-id (generate-new-instance-id))
(plugin (get-plugin-rt-structure full-path)))
(save-instance! full-path instance-id) ; make entry in instance-table
(reset
(begin
(save-instance! full-path instance-id) ; make entry in instance-table
(register-session! instance-id 'no-return)
(with-names-from-rt-structure
plugin plugin-interface
;; MAIN may return in another thread, so we have to lookup
;; return continuation explicitly
(main req))))))
;; 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
(register-session! instance-id 'no-return)
; (error "This may never return." ; for debugging
(resume req)))))))))))
(resume req)))))))))))
(define (send/suspend response-maker)