gistfile1.clj

(defn lookup-lbl [prog]
  (into {}
        (for [lbl (-> prog count range)
              :when (isit? (prog lbl) :minijava.gas/LABEL)]
          [(:lbl (prog lbl)) lbl])))

(defn flow [prog]
  (let [lookup (lookup-lbl prog)]
    (for [i (range (count prog))]
      (let [instr (prog i)]
        (cond
         (isit? instr :minijava.gas/jmp) (lookup (:dst instr))
         (isit? instr :minijava.gas/jcc) [(inc i) (lookup (:dst instr))]
         :else (inc i))))))