diff options
author | Rich Hickey <richhickey@gmail.com> | 2008-11-20 15:40:15 +0000 |
---|---|---|
committer | Rich Hickey <richhickey@gmail.com> | 2008-11-20 15:40:15 +0000 |
commit | ace90a251f8dfc86c5e5587ce110cbd05956902b (patch) | |
tree | 26b7e9e22994ecc7e7008cf1ed29a6faf86a38f9 /src | |
parent | 97a38f89aefec829cd9371452384e1e5dc0b6795 (diff) |
made cond refer to itself explicitly
Diffstat (limited to 'src')
-rw-r--r-- | src/clj/clojure/core.clj | 4 |
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)] |