Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Removed eastwood.util

  • Loading branch information...
commit 65593a68c84344cebf806022743b8247b3374dc6 1 parent e3a2f8e
@jonase authored
Showing with 0 additions and 23 deletions.
  1. +0 −23 src/eastwood/util.clj
View
23 src/eastwood/util.clj
@@ -1,23 +0,0 @@
-(ns eastwood.util
- (:require [clojure.set :as set]))
-
-;; TODO: Profile!
-
-(defn local-bindings [expr]
- (condp = (:op expr)
- :fn-method (if-let [rest-param (:rest-param expr)]
- (conj (set (:required-params expr)) rest-param)
- (set (:required-params expr)))
- :let (set (map :local-binding (:binding-inits expr)))
- :let-fn (set (map :local-binding (:binding-inits expr)))
- #{}))
-
-
-(defn free-locals [expr]
- (if (= (:op expr) :local-binding-expr)
- #{(:sym (:local-binding expr))}
- (set/difference (apply set/union (map free-locals
- (:children expr))))
- (local-bindings expr))))
-
-
Please sign in to comment.
Something went wrong with that request. Please try again.