Permalink
Browse files

fixes to work on contrib

  • Loading branch information...
1 parent 240b04a commit 47327ae975a374f3cf5ca8b8659a5afddf12cd23 @hiredman committed Oct 20, 2009
Showing with 12 additions and 2 deletions.
  1. +12 −2 dep.clj
View
@@ -21,7 +21,12 @@
(mapcat
(fn [x]
(if (list? x)
- (map #(symbol (str (name (first x)) "." (name %))) (rest x))
+ (map #(symbol (str (name (first x))
+ "."
+ (name
+ (if (vector? %)
+ (first %)
+ %)))) (rest x))
(list x)))
(map #(if (vector? %) (first %) %) (mapcat rest (filter #(and (or (vector? %) (list? %)) (= :require (first %))) ns-form))))))
@@ -35,7 +40,12 @@
((partial mapcat
(fn [x]
(if (coll? x)
- (map #(symbol (str (name (first x)) "." (name %))) (rest x))
+ (map #(symbol (str (name (first x))
+ "."
+ (name
+ (if (vector? %)
+ (first %)
+ %)))) (rest x))
[x]))))))
(defn get-import [ns-form]

0 comments on commit 47327ae

Please sign in to comment.