From 338ada91c1fccfe29f5e67e14c258a887f44bdd2 Mon Sep 17 00:00:00 2001 From: Jake Zerrer Date: Thu, 20 Nov 2025 20:28:45 -0500 Subject: FIX time object bug --- src/unheard/time_object.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/unheard/time_object.clj b/src/unheard/time_object.clj index 40e16f7..1a12099 100644 --- a/src/unheard/time_object.clj +++ b/src/unheard/time_object.clj @@ -49,13 +49,13 @@ (loop [time-objects time-objects m m] (let [{:keys [start duration value]} (first time-objects) + m (imap/mark m start (+ start duration) value) rem (rest time-objects)] - (if (seq rem) - (recur rem (imap/mark m start (+ start duration) value)) - m))) + (if (seq rem) (recur rem m) m))) m))) (comment + (def t (timeline (a 0))) (def t (timeline (c 0))) (get t 2)) -- cgit v1.2.3