From 77ac93255544d74b0217e75de4f8a23361397f28 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sun, 22 Nov 2015 20:18:28 -0600 Subject: [PATCH] Oops, left a stray (pk) --- eightsync/agenda.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/eightsync/agenda.scm b/eightsync/agenda.scm index b26d93b..adbd0c6 100644 --- 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)))))))) -- 2.31.1