changed var toString to be readable, made self-references in fns go through var

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--") +
 	       ">";