2 files changed, 41 insertions, 38 deletions

diff --git a/src/org/clojure/runtime/Namespace.java b/src/org/clojure/runtime/Namespace.java
index 22b1eb9d..04a7d40e 100644
--- a/src/org/clojure/runtime/Namespace.java
+++ b/src/org/clojure/runtime/Namespace.java
@@ -13,6 +13,7 @@
 package org.clojure.runtime;
 
 import java.util.HashMap;
+import java.util.IdentityHashMap;
 
 public class Namespace{
 
@@ -22,48 +23,48 @@ public class Namespace{
 static final public HashMap table = new HashMap();
 
 /**
- * String->Symbol
+ * Symbol->Var
  */
-final public HashMap vars = new HashMap();
+final public IdentityHashMap vars = new IdentityHashMap();
 final public String name;
 
 Namespace(String name)
-	{
-	this.name = name;
-	table.put(name, this);
-	}
+    {
+    this.name = name;
+    table.put(name, this);
+    }
 
 static public Namespace find(String name)
-	{
-	return (Namespace) table.get(name);
-	}
+    {
+    return (Namespace) table.get(name);
+    }
 
 static public Namespace findOrCreate(String name)
-	{
-	synchronized(table)
-		{
-		Namespace ns = find(name);
-		if(ns == null)
-			ns = new Namespace(name);
-		return ns;
-		}
-	}
+    {
+    synchronized(table)
+        {
+        Namespace ns = find(name);
+        if(ns == null)
+            ns = new Namespace(name);
+        return ns;
+        }
+    }
 
-static public Var internVar(String ns,String var)
-	{
-	return findOrCreate(ns).internVar(var);
-	}
+static public Var intern(String ns,String name)
+    {
+    return findOrCreate(ns).intern(Symbol.intern(name));
+    }
 
 
-public Var internVar(String name)
-	{
-	synchronized(vars)
-		{
-		Var var = (Var) vars.get(name);
-		if(var == null)
-			vars.put(name, var = new Var(name, this));
-		return var;
-		}
-	}
+public Var intern(Symbol sym)
+    {
+    synchronized(vars)
+        {
+        Var var = (Var) vars.get(sym);
+        if(var == null)
+            vars.put(sym, var = new Var(sym, this));
+        return var;
+        }
+    }
 
 }
diff --git a/src/org/clojure/runtime/Var.java b/src/org/clojure/runtime/Var.java
index a328ceb4..fce5344f 100644
--- a/src/org/clojure/runtime/Var.java
+++ b/src/org/clojure/runtime/Var.java
@@ -14,23 +14,25 @@ package org.clojure.runtime;
 
 public class Var extends AFn{
 
-public final String name;
+public final Symbol sym;
 public Namespace namespace;
 public Cons binding;
 public IFn fn;  //todo, bind to throw stub?
 public IFn setfn;
 
-Var(String name, Namespace ns)
+Var(Symbol sym, Namespace ns)
 	{
-	this.namespace = ns;
-	this.name = name;
+    if(!(sym.getClass() == Symbol.class))
+        throw new IllegalArgumentException("Only simple symbols can be vars");
+    this.namespace = ns;
+	this.sym = sym;
 	}
 
 public String toString()
 	{
 	if(namespace == null)
-		return "#:" + name;
-	return namespace.name + ":" + name;
+		return "#:" + sym;
+	return namespace.name + ":" + sym;
 	}
 
 public Var bind(Object val)