diff options
author | Colin Okay <colin@cicadas.surf> | 2022-06-30 06:22:02 -0500 |
---|---|---|
committer | Colin Okay <colin@cicadas.surf> | 2022-06-30 06:22:02 -0500 |
commit | 7390c49a8f730405c048b4e79a6275322987315f (patch) | |
tree | ff4660c6edc9734afb685fd4244b87a1721b4de9 /src/events | |
parent | 7bbcc1cce6dbda1c6f5ad84f956c188ce639100d (diff) |
[modify] moved *application* into wheelwork; should-listen-for-p
Diffstat (limited to 'src/events')
-rw-r--r-- | src/events/listener-and-interactive.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/events/listener-and-interactive.lisp b/src/events/listener-and-interactive.lisp index fdfe7b3..e5bdce3 100644 --- a/src/events/listener-and-interactive.lisp +++ b/src/events/listener-and-interactive.lisp @@ -51,7 +51,7 @@ (after-dropped (after-dropped-table listener)) (before-dropped (before-dropped-table listener)))) -(defun should-listen-for-p (event-type &optional (app *application*)) +(defun should-listen-for-p (event-type app) (plusp (hash-table-count (listener-table-for (listener app) event-type)))) (defclass/std interactive () |