From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Fri, 20 Nov 2015 03:40:51 +0000 (-0600)
Subject: (hash-keys hash) not (hash-keys selector)
X-Git-Tag: v0.1.0~139
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=7b1f63e7291f376d73ead3fe368315781258d0ed;p=8sync.git

(hash-keys hash) not (hash-keys selector)

... how did that even compile before?
---

diff --git a/loopy.scm b/loopy.scm
index cb7ee81..f346a9e 100644
--- a/loopy.scm
+++ b/loopy.scm
@@ -318,7 +318,7 @@
 (define %current-agenda (make-parameter #f))
 
 (define (update-agenda-from-select! agenda)
-  (define (hash-keys selector)
+  (define (hash-keys hash)
     (hash-map->list (lambda (k v) k) hash))
   (define (get-wait-time)
     ;; TODO: we need to figure this out based on whether there's anything