Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Replace '-' with '_' when converting ns-sym into file-path

  • Loading branch information...
commit ef807a7230074528b45702123ab3127ea93204f1 1 parent b43ab68
@jonase jonase authored
Showing with 5 additions and 3 deletions.
  1. +3 −2 project.clj
  2. +1 −1  src/analyze/core.clj
  3. +1 −0  src/eastwood/core.clj
View
5 project.clj
@@ -3,8 +3,9 @@
:dependencies [[org.clojure/clojure "1.3.0"]
[org.clojure/data.json "0.1.1"] ;; OK - reflection warnings
- [org.clojure/core.match "0.2.0-alpha8"] ;;ArityException
- [org.clojure/data.finger-tree "0.0.1"] ;;NPE
+ [org.clojure/core.match "0.2.0-alpha8"] ;; OK
+ [org.clojure/data.finger-tree "0.0.1"] ;; OK, private macros are reported
+ ;; as never used. Bug in eastwood.
[org.clojure/tools.logging "0.2.3"] ;; OK
[org.clojure/java.jdbc "0.1.1"] ;; OK, using deprecated replicate + naked use.
[org.clojure/data.csv "0.1.0"] ;; OK
View
2  src/analyze/core.clj
@@ -95,7 +95,7 @@
(defmethod Expr->map Compiler$LetFnExpr
[^Compiler$LetFnExpr expr env]
(let [body (Expr->map (.body expr) env)
- binding-inits (-> (doall (map BindingInit->vec (.bindingInits expr)))
+ binding-inits (-> (doall (map BindingInit->vec (.bindingInits expr) (repeat env)))
vec)]
{:op :letfn
:env env
View
1  src/eastwood/core.clj
@@ -8,6 +8,7 @@
(defn- analyze [ns-sym]
(let [source-file (-> (name ns-sym)
(string/replace "." "/")
+ (string/replace "-" "_")
(str ".clj"))]
(analyze/analyze-path source-file ns-sym)))
Please sign in to comment.
Something went wrong with that request. Please try again.