diff --git a/tl/src/tl/views.cljs b/tl/src/tl/views.cljs index 0028b27..51eb52b 100644 --- a/tl/src/tl/views.cljs +++ b/tl/src/tl/views.cljs @@ -105,16 +105,6 @@ segs)) (max 0 (dec (count segs))))) -(defn- seg-at-src - "Index of the segment whose SOURCE range contains source frame `sf` (0 if none)." - [segs sf] - (or (first (keep-indexed (fn [i {[a b] :src}] - (when (or (and (<= a sf) (< sf b)) - (< sf a)) - i)) - segs)) - (max 0 (dec (count segs))))) - ;; The