Merge pull request #492 from theanalyst/fix/coll
Replace forgotten instances of coll? function
This commit is contained in:
commit
a11f92da37
@ -114,7 +114,7 @@
|
|||||||
|
|
||||||
(defn fake-source-positions [tree]
|
(defn fake-source-positions [tree]
|
||||||
"Fake the source positions for a given tree"
|
"Fake the source positions for a given tree"
|
||||||
(if (and (iterable? tree) (not (string? tree)))
|
(if (coll? tree)
|
||||||
(for* [subtree tree]
|
(for* [subtree tree]
|
||||||
(fake-source-positions subtree)))
|
(fake-source-positions subtree)))
|
||||||
(for* [attr '[start-line end-line start-column end-column]]
|
(for* [attr '[start-line end-line start-column end-column]]
|
||||||
@ -135,7 +135,7 @@
|
|||||||
(raise (TypeError (.format "{0!r} is not a collection" coll)))))
|
(raise (TypeError (.format "{0!r} is not a collection" coll)))))
|
||||||
|
|
||||||
(defn _flatten [coll result]
|
(defn _flatten [coll result]
|
||||||
(if (and (iterable? coll) (not (string? coll)))
|
(if (coll? coll)
|
||||||
(do (for* [b coll]
|
(do (for* [b coll]
|
||||||
(_flatten b result)))
|
(_flatten b result)))
|
||||||
(.append result coll))
|
(.append result coll))
|
||||||
|
Loading…
Reference in New Issue
Block a user