Browse files

Removed eastwood.util

  • Loading branch information...
1 parent e3a2f8e commit 65593a68c84344cebf806022743b8247b3374dc6 @jonase committed Jan 16, 2012
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))))
-
-

0 comments on commit 65593a6

Please sign in to comment.