Make the 'create-listener' macro a bit more flexible

mwitmer · Aug 27, 2013 · 4b93b33 · 4b93b33
1 parent dbebd7c
commit 4b93b33
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/xcb/event-loop.scm b/xcb/event-loop.scm
@@ -31,6 +31,7 @@
   #:use-module (flow event-loop)
   #:export (with-replies create-listener
                with-connection loop-with-connection
+               screen-info
                create-tagged-listener
                event-loop-prepare!)
   #:re-export (solicit notify make-tag post-to-event-loop notify-map unsolicit))
@@ -284,10 +285,10 @@
 
 (define-syntax make-listener  
   (syntax-rules (=>)
-    ((_ event-struct tag extraguard ... (guard guard* ...) => proc)
+    ((_ event-struct tag extraguard ... (guard ...) => proc)
      (listen! event-struct tag
               proc
-              (lambda (name) (verify-fields name extraguard ... guard guard* ...))))
+              (lambda (name) (verify-fields name extraguard ... guard ...))))
     ((_ event-struct tag extraguard ... () => proc)
      (listen! event-struct tag proc))
     ((_ event-struct tag name (guard guard* ...) expr expr* ...)