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

[8sync.git] / loopy.scm

diff --git a/loopy.scm b/loopy.scm
index cb7ee81106d7bace5bfe9841b31684d31cdd0868..f346a9e1a61bb95b992edc3b6116087d9cb83147 100644 (file)
--- 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