[patch] set setter for array-ref to array-set!

[Jamison Hope <jrh@theptrgroup.com>]

[-- Attachment #1: Type: text/plain, Size: 264 bytes --]

Here's a patch which sets the setter property of array-ref to array-set!.

(let ((a (make-array
            (shape 4 5 4 5 4 5))))
   (set! (array-ref a 4 4 4) "huuhkaja")
   (array-ref a 4 4 4))

=> "huuhkaja"

--
Jamison Hope
The PTR Group
www.theptrgroup.com



[-- Attachment #2: array-ref-setter.patch --]
[-- Type: application/octet-stream, Size: 922 bytes --]

Index: gnu/kawa/functions/ArrayRef.java
===================================================================
--- gnu/kawa/functions/ArrayRef.java	(revision 8360)
+++ gnu/kawa/functions/ArrayRef.java	(working copy)
@@ -8,6 +8,9 @@
 public class ArrayRef extends ProcedureN
 {
   public static final ArrayRef arrayRef = new ArrayRef();
+    static {
+        arrayRef.setSetter(ArraySet.arraySet);
+    }
 
   public static Object arrayRef(Array array, Sequence index)
   {
Index: gnu/kawa/functions/ChangeLog
===================================================================
--- gnu/kawa/functions/ChangeLog	(revision 8360)
+++ gnu/kawa/functions/ChangeLog	(working copy)
@@ -1,3 +1,7 @@
+2015-02-28  Jamison Hope  <jrh@theptrgroup.com>
+
+	* ArrayRef.java (arrayRef): Set setter property to ArraySet.arraySet.
+
 2015-02-28  Per Bothner  <per@bothner.com>
 
 	* CompileMisc.java: Remove unneeded call to code.emitTryEnd.