Commits

Christian Kellermann  committed 4996840

Don't ignore minimum-wait values given in run-event-loop

  • Participants
  • Parent commits e948da9

Comments (0)

Files changed (1)

           (pump (cons event events))
           (reverse events)))))
 
-(define (event-handler #!optional (minimum-wait *minimum-wait*))
+(define (event-handler minimum-wait)
   (lambda ()
     (let ((last (current-milliseconds)))
       (call-with-current-continuation
 
 (define (run-event-loop #!key
                         (run-in-background #f)
-                        (minimum-wait 0))
+                        (minimum-wait *minimum-wait*))
+  (set! *minimum-wait* minimum-wait)
   (call-with-current-continuation
    (lambda (k)
      (with-exception-handler