   [seg source-map]
   (let [[gcol source line col name] seg]
    {:gcol   gcol
-    :source (aget (.split (aget source-map "sources" source) "?") 0)
+    :source (aget (.split (gobj/get source-map "sources" source) "?") 0)
     :line   line
     :col    col
     :name   (when-let [name (-> seg meta :name)]
-              (aget source-map "names" name))}))
+              (gobj/get source-map "names" name))}))
 
 (defn seg-combine
   "Combine a source map segment vector and a relative

  generated JavaScript source locations to the original
  ClojureScript."
  ([source-map]
     (decode (aget source-map "mappings") source-map))
  ([mappings source-map]
     (let [sources (aget source-map "sources")
           relseg-init [0 0 0 0 0]
           lines (seq (string/split mappings #";"))]
       (loop [gline 0 lines lines relseg relseg-init result {}]
         (if lines
           (let [line (first lines)

;   You must not remove this notice, or any other, from this software.

(ns cljs.source-map
  (:require [goog.object :as gobj]
            [clojure.string :as string]
            [clojure.set :as set]
            [cljs.source-map.base64-vlq :as base64-vlq]))

