event debugging

2026-05-04 15:16:10 +02:00
parent d6c4b2176e
commit 8626bc61dc
1 changed files with 5 additions and 3 deletions
@@ -182,9 +182,11 @@
             (cms (current-milliseconds))
             )

-        (dbg-webview "< ~a ~a && eq? ~a ~a && (eq? ~a ~a || eq? ~a ~a"
-                     cms last-event-time last-event-kind event js-evt #f
-                     last-js-event js-evt)
+        (dbg-webview "< ~a ~a = ~a && eq? ~a ~a = ~a && (eq? ~a ~a || eq? ~a ~a) = ~a"
+                     cms last-event-time (< cms last-event-time)
+                     last-event-kind event (eq? last-event-kind event)
+                     js-evt #f last-js-event js-evt (or (eq? js-evt #f) (eq? last-js-event js-evt))
+                     )
        (unless (and
                 (< cms last-event-time)
                 (eq? last-event-kind event)