diff --git a/autotests/folding/clojure.clj.fold b/autotests/folding/clojure.clj.fold --- a/autotests/folding/clojure.clj.fold +++ b/autotests/folding/clojure.clj.fold @@ -69,3 +69,5 @@ (defn something-cool [] (first @state)) (defn- something-different [] (first (into @state [12]))) + +(defn- instance-getfield [this k] (@(.state this) k)) diff --git a/autotests/html/clojure.clj.html b/autotests/html/clojure.clj.html --- a/autotests/html/clojure.clj.html +++ b/autotests/html/clojure.clj.html @@ -75,4 +75,6 @@ (defn something-cool [] (first @state)) (defn- something-different [] (first (into @state [12]))) + +(defn- instance-getfield [this k] (@(.state this) k)) diff --git a/autotests/input/clojure.clj b/autotests/input/clojure.clj --- a/autotests/input/clojure.clj +++ b/autotests/input/clojure.clj @@ -69,3 +69,5 @@ (defn something-cool [] (first @state)) (defn- something-different [] (first (into @state [12]))) + +(defn- instance-getfield [this k] (@(.state this) k)) diff --git a/autotests/reference/clojure.clj.ref b/autotests/reference/clojure.clj.ref --- a/autotests/reference/clojure.clj.ref +++ b/autotests/reference/clojure.clj.ref @@ -69,3 +69,5 @@ (defn something-cool [] (first @state))

(defn- something-different [] (first (into @state [12])))
+
+(defn- instance-getfield [this k] (@(.state this) k))
diff --git a/data/syntax/clojure.xml b/data/syntax/clojure.xml --- a/data/syntax/clojure.xml +++ b/data/syntax/clojure.xml @@ -22,7 +22,7 @@ * Boston, MA 02110-1301, USA. * ********************************************************************** --> - + def @@ -708,6 +708,7 @@ + @@ -790,6 +791,7 @@ + @@ -798,6 +800,7 @@ + @@ -806,6 +809,7 @@ + @@ -814,6 +818,7 @@ + @@ -822,6 +827,7 @@ + @@ -830,6 +836,7 @@ +