lang: reject writes through constants (PLAN-CONST-AGG step 2, fixes 0116)

Any assignment / compound-assignment whose target chain is ROOTED at a
constant — a const-flagged global (array consts, #run consts) or a
module value const (struct consts incl.) — diagnoses 'cannot assign
through constant X' at compile time. A struct const's field write used
to compile and bus-error at runtime (issue 0116); scalars misfired
silently. A deref along the chain (p.*) breaks the root — pointer
writes stay the documented escape until the const-ness steps; a local
shadowing the const name stays writable.

Also: typed struct constants ('W : Color : Color.{...}') register —
the shape list skipped struct_literal, leaving the typed form
unresolved while the untyped one worked.

Examples: 1162 (all rejection shapes incl. the 0116 crash repro),
0178 (typed struct const reads + copy independence).

examples/0178-types-typed-struct-const.sx

@@ -0,0 +1,16 @@
+// A TYPED struct constant ('W : Color : Color.{...}') registers like the
+// untyped form ('WHITE :: Color.{...}') — value reads, field reads, and
+// independent copies. (Both shapes keep inline re-lowering semantics
+// until PLAN-CONST-AGG step 4 migrates them to const globals.)
+
+#import "modules/std.sx";
+
+Color :: struct { r, g, b: s64; }
+W : Color : Color.{ r = 1, g = 2, b = 3 };
+
+main :: () {
+    print("{} {} {}\n", W.r, W.g, W.b);
+    c := W;
+    c.g = 99;
+    print("copy={} const={}\n", c.g, W.g);
+}

examples/1162-diagnostics-const-write-rejected.sx

@@ -0,0 +1,19 @@
+// Writes through a module constant are compile errors — for every target
+// chain rooted at a const: a struct const's field (this used to compile
+// and BUS-ERROR at runtime — issue 0116), an array const's element,
+// a compound assignment, and a bare scalar const. A local that shadows
+// the const name stays writable (see 0177/0178 for the value semantics).
+
+#import "modules/std.sx";
+
+Color :: struct { r, g, b: s64; }
+WHITE :: Color.{ r = 255, g = 255, b = 255 };
+K : [4]s64 : .[11, 22, 33, 44];
+N : s64 : 4;
+
+main :: () {
+    WHITE.r = 0;
+    K[0] = 5;
+    K[1] += 2;
+    N = 9;
+}

examples/expected/0178-types-typed-struct-const.exit

@@ -0,0 +1 @@
+0

examples/expected/0178-types-typed-struct-const.stderr

@@ -0,0 +1 @@
+

examples/expected/0178-types-typed-struct-const.stdout

@@ -0,0 +1,2 @@
+1 2 3
+copy=99 const=2

examples/expected/1162-diagnostics-const-write-rejected.exit

@@ -0,0 +1 @@
+1

examples/expected/1162-diagnostics-const-write-rejected.stderr

@@ -0,0 +1,23 @@
+error: cannot assign through constant 'WHITE' — constants are immutable (use a '=' global or a local copy for mutable data)
+  --> examples/1162-diagnostics-const-write-rejected.sx:15:5
+   |
+15 |     WHITE.r = 0;
+   |     ^^^^^^^
+
+error: cannot assign through constant 'K' — constants are immutable (use a '=' global or a local copy for mutable data)
+  --> examples/1162-diagnostics-const-write-rejected.sx:16:5
+   |
+16 |     K[0] = 5;
+   |     ^^^^
+
+error: cannot assign through constant 'K' — constants are immutable (use a '=' global or a local copy for mutable data)
+  --> examples/1162-diagnostics-const-write-rejected.sx:17:5
+   |
+17 |     K[1] += 2;
+   |     ^^^^
+
+error: cannot assign through constant 'N' — constants are immutable (use a '=' global or a local copy for mutable data)
+  --> examples/1162-diagnostics-const-write-rejected.sx:18:5
+   |
+18 |     N = 9;
+   |     ^^^^^^

examples/expected/1162-diagnostics-const-write-rejected.stdout

@@ -0,0 +1 @@
+