From e64b57f540c57c60dba0b03f63761be8e30a38e3 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Sun, 9 Mar 2003 19:18:35 +0000
Subject: [PATCH] Correct some error from last commit: * COMPOUND-INTERFACE
 needs its arguments to be defined already * add bang to some other
 ADJUST-TIMEOUTs

---
 scheme/httpd/surflets/packages.scm | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/scheme/httpd/surflets/packages.scm b/scheme/httpd/surflets/packages.scm
index 4dd7f00..369a354 100644
--- a/scheme/httpd/surflets/packages.scm
+++ b/scheme/httpd/surflets/packages.scm
@@ -14,6 +14,15 @@
 (define-interface surflet-handler-interface
   (export surflet-handler))
 
+;; Responses from SUrflets
+(define-interface surflet-handler/responses-interface
+  (export make-surflet-response
+	  surflet-response?
+	  surflet-response-status
+	  surflet-response-content-type
+	  surflet-response-headers
+	  surflet-response-data))
+
 ;; Use for SUrflets
 (define-interface surflet-handler/surflets-interface
   (compound-interface 
@@ -24,9 +33,7 @@
 	   send-error			;send error response
 	   set-session-data!
 	   get-session-data
-	   adjust-timeout		;adjusts timeout of current session
-					;Without `!' because PLT
-					;doesn't have it.
+	   adjust-timeout!		;adjusts timeout of current session
 	   )))
 
 ;; Use for adminstration of the Surflet Handler
@@ -60,14 +67,6 @@
 	  resume-url-session-id
 	  resume-url-continuation-id))
 
-;; Responses from SUrflets
-(define-interface surflet-handler/responses-interface
-  (export make-surflet-response
-	  surflet-response?
-	  surflet-response-status
-	  surflet-response-content-type
-	  surflet-response-headers
-	  surflet-response-data))
 
 
 ;; Helping functions for surflets
@@ -83,7 +82,7 @@
 	  extract-bindings
 	  extract-single-binding
 
-	  adjust-timeout
+	  adjust-timeout!
 
 	  make-outdater
 	  (if-outdated :syntax)