projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Catch all errors in the actor model.
[8sync.git]
/
8sync
/
systems
/
web.scm
diff --git
a/8sync/systems/web.scm
b/8sync/systems/web.scm
index 602e06f827f08ce835cf02ed8eb50678a4e07fbc..76c38dfb0f3835945ffdbc91b281fbb97d73d124 100644
(file)
--- a/
8sync/systems/web.scm
+++ b/
8sync/systems/web.scm
@@
-92,7
+92,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
+103,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))