map_as_obj.clj

(defn analysis->map 
  "Convert Java Object expr into nested maps"
  ; result type: 
  ;       (rec X (U {:op :def
  ;                  :env {:source Object
  ;                        :line Object}
  ;                  :var Var}
  ;                 {:op :if
  ;                  :env {:source Object
  ;                        :line Object}
  ;                  :test X
  ;                  :then X
  ;                  :else X}
  ;                 ... }
  [expr]
  (cond
    (Def? expr) {:op :def
                 :env {:source (.source expr)
                       :line (.line expr)}
                 :var (.var expr)}
    (If? expr) {:op :if
                :env {:source (.source expr)
                      :line (.line expr)}
                :test (analysis->map (.test expr))
                :then (analysis->map (.then expr))
                :else (analysis->map (.else expr))}

    ...
    ))