diff options
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)) |