diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-04-30 15:11:26 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-04-30 15:11:26 +0000 |
| commit | f40d488b91e5a8f586f29c640b9248f0ebb98db3 (patch) | |
| tree | 012d4707a8681888959d1e008357b5af6ccbe4d4 | |
| parent | ed76d5f261ca52355b8a16bfe70700ba90d48970 (diff) | |
walk.clj: fixed macroexpand-all to use seq? instead of list?
Because macroexpand returns a Cons, not a list, we need
this to get all possible expansions.
Reported by Konrad Hinsen.
| -rw-r--r-- | src/clojure/contrib/walk.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/contrib/walk.clj b/src/clojure/contrib/walk.clj index 5c1e9a3e..a3ba8b35 100644 --- a/src/clojure/contrib/walk.clj +++ b/src/clojure/contrib/walk.clj @@ -118,5 +118,5 @@ (defn macroexpand-all "Recursively performs all possible macroexpansions in form." [form] - (prewalk (fn [x] (if (list? x) (macroexpand x) x)) form)) + (prewalk (fn [x] (if (seq? x) (macroexpand x) x)) form)) |