;; This is a very preliminary web module.
+;;; TODO: This is using deprecated code and needs a rewrite after the
+;;; suspendable-ports merge.
+
(define-module (8sync systems web)
#:use-module (web server)
#:use-module (web request)
((client-conn . socket-address)
(define (close-and-dequeue)
(close client-conn)
- (%8sync-port-remove client-conn))
+ (8sync-port-remove client-conn))
(catch
#t
(lambda ()
(call-with-values
(lambda ()
- ;; @@: Is it useful to wrap this in %8sync-run?
+ ;; @@: Is it useful to wrap this in 8sync-run?
;; It's more indirection but might give breathing
;; room to other requests...
(handler request request-body))