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
|
(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)
|
||||||
|
|
Loading…
Reference in New Issue