From ac880e44911c6368f4fd1ad32ebf462ba519541a Mon Sep 17 00:00:00 2001 From: interp Date: Wed, 18 Sep 2002 08:57:28 +0000 Subject: [PATCH] move reset calls forward --- scheme/httpd/surflets/surflet-handler.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index 48053f4..d7699db 100644 --- a/scheme/httpd/surflets/surflet-handler.scm +++ b/scheme/httpd/surflets/surflet-handler.scm @@ -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 beginning." (begin (register-session! instance-id 'no-return) ; (error "This may never return." ; for debugging - (resume req))))))))))) + (resume req))))))))))) (define (send/suspend response-maker)