remove RETURN-CONTINUATION from INSTANCE; it's not used anyway

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