COMMON: fix LET assignment to map/array field

Author: chrisws

ChangeLog

@@ -1,3 +1,6 @@
+2015-10-20
+	Fix LET when assigning a value to a MAP/ARRAY field
+
 2015-09-15
 	SDL Update PEN(3) to work more like FLTK
 	Fix display output before PEN

samples/distro-examples/tests/uds.bas

@@ -111,3 +111,28 @@ next i
 inner.foo="bar"
 m.b << inner
 s = " " + m.b(0).foo
+
+rem ------------------------------------
+
+dim bar.x(2), foo(2)
+bar.x(0).barx = 1024
+foo(0).fooY = 999
+if (bar.x(0).barx <> 1024) then
+  throw "Error 1"
+fi
+
+if (foo(0).fooY <> 999) then
+  throw "Error 2"
+fi
+
+if (1024 <> bar.x(0).barx) then
+  throw "Error 3"
+fi
+
+if (999 <> foo(0).fooY) then
+  throw "Error 4"
+fi
+
+bar.x(1).barx=bar.x(0).barx+976
+bar.x(1).barx/=1000
+if bar.x(1).barx <> 2 then throw "Yuck, I can't read red print on black background."

src/common/scan.c

@@ -1701,7 +1701,9 @@ char *comp_array_params(char *src, char exitChar) {
       }
       break;
     };
-    p++;
+    if (*p != exitChar) {
+      p++;
+    }
     if (*p == exitChar) {
       p++;
       break;