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)