From 9aea76ee832234d848d865d0debc9e320971f887 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Sat, 25 Jan 2003 16:11:30 +0000
Subject: [PATCH] remove RETURN-CONTINUATION from INSTANCE; it's not used
 anyway

---
 scheme/httpd/surflets/surflet-handler.scm | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm
index 9425e2e..db376c6 100644
--- a/scheme/httpd/surflets/surflet-handler.scm
+++ b/scheme/httpd/surflets/surflet-handler.scm
@@ -76,7 +76,7 @@
 				 (make-thread-safe-counter) ; continuation counter
 				 #f))	              ; surflet-data
       (release-lock *session-table-lock*)
-      (register-instance! session-id 'no-return)
+      (register-instance! session-id)
       
       (with-fatal-handler
        ;; Catch conditions from get-surflet-rt-structure.
@@ -190,7 +190,7 @@
 		    (with-cwd surflet-path
 		      (reset
 		       (begin
-			 (register-instance! session-id 'no-return)
+			 (register-instance! session-id)
 			 (resume req))))
 		    (bad-request path-string req)))
 	      (bad-request path-string req)))
@@ -516,9 +516,9 @@
 
 ;;; REGISTER-INSTANCE!
 ;; Saves values for current session (in a record).
-(define (register-instance! session-id return-continuation)
+(define (register-instance! session-id)
   (thread-cell-set! *instance* 
-		    (make-instance session-id return-continuation)))
+		    (make-instance session-id)))
 
 
 ;;; INSTANCE-SESSION-ID
@@ -526,10 +526,6 @@
 (define (instance-session-id)
   (really-instance-session-id (thread-cell-ref *instance*)))
 
-;; unused
-(define (instance-return-continuation)
-  (really-instance-return-continuation (thread-cell-ref *instance*)))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; RESUME-URL
 
@@ -616,12 +612,10 @@
 
 ;;; INSTANCE: Every request corresponds to an instance.
 (define-record-type instance :instance
-  (make-instance session-id return-continuation)
+  (make-instance session-id)
   instance?
   (session-id really-instance-session-id 
-	       set-instance-session-id!)
-  (return-continuation really-instance-return-continuation 
-		       set-instance-return-continuation!))
+	       set-instance-session-id!))
 
 
 ;;; OPTIONS: options for the surflet-handler