Correct some error from last commit:

* COMPOUND-INTERFACE needs its arguments to be defined already
* add bang to some other ADJUST-TIMEOUTs
This commit is contained in:
interp 2003-03-09 19:18:35 +00:00
parent 4748a882c3
commit e64b57f540
1 changed files with 11 additions and 12 deletions

View File

@ -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)