projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
websockets: Initial and not totally working websocket code.
[8sync.git]
/
8sync
/
agenda.scm
diff --git
a/8sync/agenda.scm
b/8sync/agenda.scm
index 1d2515607b7d932598b3f3e7c9742f74fbfcbd21..828153033840ce180a8914c3fecdda42139d440d 100644
(file)
--- a/
8sync/agenda.scm
+++ b/
8sync/agenda.scm
@@
-1,5
+1,5
@@
;;; 8sync --- Asynchronous programming for Guile
;;; 8sync --- Asynchronous programming for Guile
-;;; Copyright
(C) 2015, 2016
Christopher Allan Webber <cwebber@dustycloud.org>
+;;; Copyright
© 2015, 2016, 2017
Christopher Allan Webber <cwebber@dustycloud.org>
;;;
;;; This file is part of 8sync.
;;;
;;;
;;; This file is part of 8sync.
;;;
@@
-561,8
+561,6
@@
on suspendable ports."
"Start up the AGENDA"
(install-suspendable-ports!)
(parameterize ((%current-agenda-prompt (agenda-prompt-tag agenda))
"Start up the AGENDA"
(install-suspendable-ports!)
(parameterize ((%current-agenda-prompt (agenda-prompt-tag agenda))
- ;; @@: Couldn't we just parameterize this at the start of
- ;; the agenda...?
(current-read-waiter wait-for-readable)
(current-write-waiter wait-for-writable))
(while (not (stop-condition agenda))
(current-read-waiter wait-for-readable)
(current-write-waiter wait-for-writable))
(while (not (stop-condition agenda))