(defn
update-result
"Helper for decode. Take a source map and update it based on a\n segment map."
[result segmap gline]
(let
[{:keys [gcol source line col name]}
segmap
d
{:line line, :col col, :source source}
d
(if name (assoc d :name name) d)]
(update-in
result
[gline]
(fnil
(fn
[m]
(update-in
m
[gcol]
(fnil (fn* [p1__18531#] (conj p1__18531# d)) [])))
(sorted-map)))))