implemented IFn for attr access

1 files changed, 28 insertions, 1 deletions

diff --git a/src/org/clojure/runtime/Symbol.java b/src/org/clojure/runtime/Symbol.java
index c5276982..c56c8b76 100644
--- a/src/org/clojure/runtime/Symbol.java
+++ b/src/org/clojure/runtime/Symbol.java
@@ -12,5 +12,32 @@
 
 package org.clojure.runtime;
 
-public class Symbol extends AMap{
+public class Symbol extends AFn{
+
+/**
+ *  Symbol implements IFn for attr access
+ *  This single arg version is the getter
+ * @param tld
+ * @param obj - must be AMap
+ * @return the value of the attr or nil if not found
+ * @throws Exception
+ */
+public Object invoke(ThreadLocalData tld, Object obj) throws Exception
+	{
+	return ((AMap)obj).get(this);
+	}
+
+/**
+ *  Symbol implements IFn for attr access
+ *  This two arg version is the setter
+ * @param tld
+ * @param obj - must be AMap
+ * @param val
+ * @return val
+ * @throws Exception
+ */
+public Object invoke(ThreadLocalData tld, Object obj, Object val) throws Exception
+	{
+	return ((AMap)obj).put(this,val);
+	}
 }