From 17ea8e8516a8a0153baa9ad584644278e5f42599 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?KARASZI=20Istv=C3=A1n?= <ikaraszi@gmail.com>
Date: Mon, 11 Mar 2024 14:08:03 +0100
Subject: [PATCH] Fix reflection warnings

---
 src/overtone/at_at.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/overtone/at_at.clj b/src/overtone/at_at.clj
index e1e7572..74ef4b1 100644
--- a/src/overtone/at_at.clj
+++ b/src/overtone/at_at.clj
@@ -10,7 +10,7 @@
 (defn uncaught-exception-handler
   "Called when a scheduled function throws. Use `alter-var-root` to customize
   this."
-  [throwable job]
+  [^Throwable throwable job]
   (println (str throwable " thrown by at-at task: " (job-string job)))
   (.printStackTrace throwable)
   (throw throwable))
@@ -206,7 +206,7 @@
 
 (defn- mk-sched-thread-pool
   "Create a new scheduled thread pool containing num-threads threads."
-  [num-threads]
+  [^Long num-threads]
   (let [thread-factory (Executors/defaultThreadFactory)
         t-pool (ScheduledThreadPoolExecutor.
                 num-threads