projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Moving the irc bot demo to systems
[8sync.git]
/
eightsync
/
agenda.scm
diff --git
a/eightsync/agenda.scm
b/eightsync/agenda.scm
index b26d93b6bdebe328981474e88a3d40f1dd901fef..adbd0c688f402def34b35cf01ef7db7ace697cee 100644
(file)
--- a/
eightsync/agenda.scm
+++ b/
eightsync/agenda.scm
@@
-561,7
+561,7
@@
return the wrong thing via (8sync) and trip themselves up."
(hash-keys (agenda-except-port-map agenda))
sec usec))
(lambda (key . rest-args)
- (match
(pk 'rest-args rest-args)
+ (match
rest-args
((_ _ _ (EINTR))
'(() () ()))
(_ (error "Unhandled error in select!" key rest-args))))))))