From 1c73e820d0995e0aa74d0725c39f5c3b5e59d2e6 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Tue, 25 Oct 2022 10:02:52 -0500
Subject: Refactor: secs-to-hms

---
 utilities.lisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'utilities.lisp')

diff --git a/utilities.lisp b/utilities.lisp
index 96f391c..d36c4db 100644
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -99,6 +99,7 @@
 
 
 (defun secs-to-hms (secs)
+  (setf secs (round secs))
   (let ((hours (floor (/ secs (* 60 60))))
         (mins (floor (/ (mod secs (* 60 60))
                         60)))
-- 
cgit v1.2.3