projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
agenda: Remove debugging statements.
[8sync.git]
/
8sync
/
agenda.scm
diff --git
a/8sync/agenda.scm
b/8sync/agenda.scm
index f22134d0157ca1c01ff1d806922657a8a906cf02..8847dc931185a5424b2dd0e71f7d6f14c4875e7c 100644
(file)
--- a/
8sync/agenda.scm
+++ b/
8sync/agenda.scm
@@
-768,14
+768,12
@@
on suspendable ports."
(begin body ...)))
(define (wait-for-readable port)
(begin body ...)))
(define (wait-for-readable port)
- (display "Waiting to read\n")
(8sync-abort-to-prompt
(make-async-request
(lambda (kont)
(make-read-request port (wrap (kont #f)))))))
(define (wait-for-writable port)
(8sync-abort-to-prompt
(make-async-request
(lambda (kont)
(make-read-request port (wrap (kont #f)))))))
(define (wait-for-writable port)
- (display "Waiting to write\n")
(8sync-abort-to-prompt
(make-async-request
(lambda (kont)
(8sync-abort-to-prompt
(make-async-request
(lambda (kont)