summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorRich Hickey <richhickey@gmail.com>2008-11-20 15:40:15 +0000
committerRich Hickey <richhickey@gmail.com>2008-11-20 15:40:15 +0000
commitace90a251f8dfc86c5e5587ce110cbd05956902b (patch)
tree26b7e9e22994ecc7e7008cf1ed29a6faf86a38f9 /src
parent97a38f89aefec829cd9371452384e1e5dc0b6795 (diff)
made cond refer to itself explicitly
Diffstat (limited to 'src')
-rw-r--r--src/clj/clojure/core.clj4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index b5b13476..1957f4f9 100644
--- a/src/clj/clojure/core.clj
+++ b/src/clj/clojure/core.clj
@@ -357,7 +357,7 @@
(when clauses
(list 'if (first clauses)
(second clauses)
- (cons 'cond (rest (rest clauses))))))
+ (cons 'clojure.core/cond (rest (rest clauses))))))
(defn spread
{:private true}
@@ -2780,7 +2780,7 @@
it were a macro. Cannot be used with variadic (&) args."
[name & decl]
(let [[args expr] (drop-while (comp not vector?) decl)
- inline (eval (list 'fn args expr))]
+ inline (eval (list `fn args expr))]
`(do
(defn ~name ~args ~(apply inline args))
(let [v# (var ~name)]