make clojure.lang.Keyword Serializable, fixes #174

cemerick · Chouser · commit b6cf1963af6e · 2009-08-19T22:40:16.000-04:00
Signed-off-by: Chouser &lt;chouser@n01se.net&gt;
diff --git a/src/jvm/clojure/lang/Keyword.java b/src/jvm/clojure/lang/Keyword.java
@@ -12,10 +12,12 @@
 
 package clojure.lang;
 
+import java.io.ObjectStreamException;
+import java.io.Serializable;
 import java.util.concurrent.ConcurrentHashMap;
 
 
-public class Keyword implements IFn, Comparable, Named{
+public class Keyword implements IFn, Comparable, Named, Serializable {
 
 private static ConcurrentHashMap<Symbol, Keyword> table = new ConcurrentHashMap();
 public final Symbol sym;
@@ -76,6 +78,10 @@ public String getName(){
 	return sym.getName();
 }
 
+private Object readResolve() throws ObjectStreamException{
+	return intern(sym);
+}
+
 /**
  * Indexer implements IFn for attr access
  *
