diff options
| author | Jake Zerrer <him@jakezerrer.com> | 2025-11-20 20:28:45 -0500 |
|---|---|---|
| committer | Jake Zerrer <him@jakezerrer.com> | 2025-11-21 12:00:35 -0500 |
| commit | 338ada91c1fccfe29f5e67e14c258a887f44bdd2 (patch) | |
| tree | afe97353926de1efda1585ab411ca09fd0cc1dde /src/unheard/time_object.clj | |
| parent | aca0d1ebd17be8e3c47ffae5a06e529309197aac (diff) | |
FIX time object bug
Diffstat (limited to 'src/unheard/time_object.clj')
| -rw-r--r-- | src/unheard/time_object.clj | 6 |
1 files 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)) |