 
 
 (defn global-reach-set
-  "λ {Symbol → AST} → {Symbol → #{Symbol}}
+  "λ {Symbol → #{Symbol}} → {Symbol → #{Symbol}}
 
   Computes the reach set for an entire program"
   [whole-program-ast]

                (util/map-vals reach-set))))


(defn tree-shake-module
  [module options]
  )

(defn tree-shake
  "λ Whole-AST → options → Whole-AST

   :author "Reid McKenzie"
   :added "0.0.5"}
  (:require [oxcart.util :as util]
            [oxcart.pattern :as pattern]
            [oxcart.passes.defs :as defs]
            [clojure.set :as set]
            [clojure.tools.analyzer.ast :as ast]
            [taoensso.timbre :refer [info warn error]]))


(defn reach-set
