From: Christopher Allan Webber Date: Mon, 23 Nov 2015 02:18:28 +0000 (-0600) Subject: Oops, left a stray (pk) X-Git-Tag: v0.1.0~92 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=77ac93255544d74b0217e75de4f8a23361397f28;p=8sync.git Oops, left a stray (pk) --- 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))))))))