Skip to content
Browse files

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

  • Loading branch information...
1 parent b43ab68 commit ef807a7230074528b45702123ab3127ea93204f1 @jonase jonase committed
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)))

0 comments on commit ef807a7

Please sign in to comment.
Something went wrong with that request. Please try again.