projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Fix self-destruct.
[8sync.git]
/
8sync
/
systems
/
web.scm
diff --git
a/8sync/systems/web.scm
b/8sync/systems/web.scm
index 2dcaf5167f1e1c2ffaa1cfa33937dd2fcf5b3ad0..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))
@@
-161,8
+161,8
@@
don't totally failboat"
(agenda (make-agenda
#:queue q
#:pre-unwind-handler print-error-and-continue)))
(agenda (make-agenda
#:queue q
#:pre-unwind-handler print-error-and-continue)))
-
;;
(if coop-repl
-
;;
(spawn-and-queue-repl-server! agenda))
+ (if coop-repl
+ (spawn-and-queue-repl-server! agenda))
(start-agenda agenda))))
(define* (make-web-demo-cli #:key
(start-agenda agenda))))
(define* (make-web-demo-cli #:key