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 (define-interface surflet-handler-interface
(export surflet-handler)) (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 ;; Use for SUrflets
(define-interface surflet-handler/surflets-interface (define-interface surflet-handler/surflets-interface
(compound-interface (compound-interface
@ -24,9 +33,7 @@
send-error ;send error response send-error ;send error response
set-session-data! set-session-data!
get-session-data get-session-data
adjust-timeout ;adjusts timeout of current session adjust-timeout! ;adjusts timeout of current session
;Without `!' because PLT
;doesn't have it.
))) )))
;; Use for adminstration of the Surflet Handler ;; Use for adminstration of the Surflet Handler
@ -60,14 +67,6 @@
resume-url-session-id resume-url-session-id
resume-url-continuation-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 ;; Helping functions for surflets
@ -83,7 +82,7 @@
extract-bindings extract-bindings
extract-single-binding extract-single-binding
adjust-timeout adjust-timeout!
make-outdater make-outdater
(if-outdated :syntax) (if-outdated :syntax)