projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Move message body to being an argument list for procedures.
[8sync.git]
/
8sync
/
systems
/
web.scm
diff --git
a/8sync/systems/web.scm
b/8sync/systems/web.scm
index 602e06f827f08ce835cf02ed8eb50678a4e07fbc..3fd25ea32e2fd675461bd3bcaab69f240a2750c8 100644
(file)
--- a/
8sync/systems/web.scm
+++ b/
8sync/systems/web.scm
@@
-22,6
+22,9
@@
;; This is a very preliminary web module.
;; 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)
(define-module (8sync systems web)
#:use-module (web server)
#:use-module (web request)
@@
-92,7
+95,7
@@
don't totally failboat"
((client-conn . socket-address)
(define (close-and-dequeue)
(close client-conn)
((client-conn . socket-address)
(define (close-and-dequeue)
(close client-conn)
- (
%
8sync-port-remove client-conn))
+ (8sync-port-remove client-conn))
(catch
#t
(catch
#t
@@
-103,7
+106,7
@@
don't totally failboat"
(lambda ()
(call-with-values
(lambda ()
(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))
;; It's more indirection but might give breathing
;; room to other requests...
(handler request request-body))