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:
parent
4748a882c3
commit
e64b57f540
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue