diff options
| -rw-r--r-- | src/boot.clj | 2 | ||||
| -rw-r--r-- | src/jvm/clojure/lang/Var.java | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/src/boot.clj b/src/boot.clj index 704a0628..cbc10525 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -201,7 +201,7 @@ fdecl) m (conj {:arglists (list 'quote (sigs fdecl))} m)] (list 'def (with-meta name (conj (if (meta name) (meta name) {}) m)) - (cons `fn (cons name fdecl)))))) + (cons `fn fdecl))))) (. (var defn) (setMacro)) diff --git a/src/jvm/clojure/lang/Var.java b/src/jvm/clojure/lang/Var.java index b0b3fd26..a37f0ae8 100644 --- a/src/jvm/clojure/lang/Var.java +++ b/src/jvm/clojure/lang/Var.java @@ -70,6 +70,8 @@ public static Var intern(Namespace ns, Symbol sym, Object root, boolean replaceR public String toString(){ + if(ns != null) + return "#'" + ns.name + "/" + sym; return "#<Var: " + (ns != null ? (ns.name + "/") : "") + (sym != null ? sym.toString() : "--unnamed--") + ">"; |