bat syntax: sync with (LOCAL), quotations, structures, hashes

The syntax file landed in bcccdfb, one commit before `(LOCAL)` and
while several other recently-added words were already in the tree but
unhighlighted. Extend it to cover everything currently registered.

Added contexts:
- `locals` — `{:` `:}` `{F:` `TO` `LOCALS|` `END-LOCALS` `(LOCAL)`.
- `structures` — `BEGIN-STRUCTURE` (captures the following name),
  `END-STRUCTURE`, `+FIELD`, `FIELD:`, `CFIELD:`, `FFIELD:`,
  `SFFIELD:`, `DFFIELD:`.
- `hashing` — `SHA1`, `SHA256`, `SHA512`. Comment notes the list
  mirrors `crypto::ALGOS`.

Extended:
- `definitions` — quotations `[:` / `;]` (Core-ext 6.2.0455).
- `parsing` — state-smart `S` (the string parser from d1a7d55).
- `wafer_extras` — `READ-PASSWORD` (web-side prompter from 9150696).

Context order in `main:` keeps `definitions` ahead of `locals`, so
`: foo` still wins over `{:` / `:}`, and `strings` / `arithmetic`
stay ahead of `parsing` so `S"` and `S>D` keep their existing
highlighting despite the new bare-`S` rule.

crates/core/src/codegen.rs

@@ -2012,12 +2012,14 @@ fn emit_promoted_op(f: &mut Function, op: &IrOp, sim: &mut StackSim) {
             // Outside loops, RFetch shouldn't appear in promoted code
         }
 
-        IrOp::LoopJ if sim.loop_index_stack.len() >= 2 => {
-            let (outer_index, _) = sim.loop_index_stack[sim.loop_index_stack.len() - 2];
-            let result = sim.alloc();
-            f.instruction(&Instruction::LocalGet(outer_index));
-            f.instruction(&Instruction::LocalSet(result));
-            sim.push(result);
+        IrOp::LoopJ => {
+            if sim.loop_index_stack.len() >= 2 {
+                let (outer_index, _) = sim.loop_index_stack[sim.loop_index_stack.len() - 2];
+                let result = sim.alloc();
+                f.instruction(&Instruction::LocalGet(outer_index));
+                f.instruction(&Instruction::LocalSet(result));
+                sim.push(result);
+            }
         }
 
         IrOp::Exit => {
@@ -2145,15 +2147,15 @@ fn needs_f64_locals(ops: &[IrOp]) -> bool {
                     return true;
                 }
             }
-            IrOp::DoLoop { body, .. } | IrOp::BeginUntil { body } | IrOp::BeginAgain { body }
-                if needs_f64_locals(body) =>
-            {
-                return true;
+            IrOp::DoLoop { body, .. } | IrOp::BeginUntil { body } | IrOp::BeginAgain { body } => {
+                if needs_f64_locals(body) {
+                    return true;
+                }
             }
-            IrOp::BeginWhileRepeat { test, body }
-                if needs_f64_locals(test) || needs_f64_locals(body) =>
-            {
-                return true;
+            IrOp::BeginWhileRepeat { test, body } => {
+                if needs_f64_locals(test) || needs_f64_locals(body) {
+                    return true;
+                }
             }
             IrOp::BeginDoubleWhileRepeat {
                 outer_test,
@@ -2207,15 +2209,15 @@ fn body_needs_return_stack(ops: &[IrOp]) -> bool {
                     return true;
                 }
             }
-            IrOp::DoLoop { body, .. } | IrOp::BeginUntil { body } | IrOp::BeginAgain { body }
-                if body_needs_return_stack(body) =>
-            {
-                return true;
+            IrOp::DoLoop { body, .. } | IrOp::BeginUntil { body } | IrOp::BeginAgain { body } => {
+                if body_needs_return_stack(body) {
+                    return true;
+                }
             }
-            IrOp::BeginWhileRepeat { test, body }
-                if body_needs_return_stack(test) || body_needs_return_stack(body) =>
-            {
-                return true;
+            IrOp::BeginWhileRepeat { test, body } => {
+                if body_needs_return_stack(test) || body_needs_return_stack(body) {
+                    return true;
+                }
             }
             IrOp::BeginDoubleWhileRepeat {
                 outer_test,

crates/core/src/export.rs

@@ -131,8 +131,10 @@ pub fn export_module(
 fn collect_external_calls(ops: &[IrOp], ir_ids: &HashSet<WordId>, host_ids: &mut HashSet<WordId>) {
     for op in ops {
         match op {
-            IrOp::Call(id) | IrOp::TailCall(id) if !ir_ids.contains(id) => {
-                host_ids.insert(*id);
+            IrOp::Call(id) | IrOp::TailCall(id) => {
+                if !ir_ids.contains(id) {
+                    host_ids.insert(*id);
+                }
             }
             IrOp::If {
                 then_body,

crates/core/src/optimizer.rs

@@ -591,15 +591,15 @@ fn contains_call_to(ops: &[IrOp], target: WordId) -> bool {
                     return true;
                 }
             }
-            IrOp::DoLoop { body, .. } | IrOp::BeginUntil { body } | IrOp::BeginAgain { body }
-                if contains_call_to(body, target) =>
-            {
-                return true;
+            IrOp::DoLoop { body, .. } | IrOp::BeginUntil { body } | IrOp::BeginAgain { body } => {
+                if contains_call_to(body, target) {
+                    return true;
+                }
             }
-            IrOp::BeginWhileRepeat { test, body }
-                if contains_call_to(test, target) || contains_call_to(body, target) =>
-            {
-                return true;
+            IrOp::BeginWhileRepeat { test, body } => {
+                if contains_call_to(test, target) || contains_call_to(body, target) {
+                    return true;
+                }
             }
             IrOp::BeginDoubleWhileRepeat {
                 outer_test,
@@ -651,13 +651,15 @@ fn contains_exit(ops: &[IrOp]) -> bool {
                     return true;
                 }
             }
-            IrOp::DoLoop { body, .. } | IrOp::BeginUntil { body } | IrOp::BeginAgain { body }
-                if contains_exit(body) =>
-            {
-                return true;
+            IrOp::DoLoop { body, .. } | IrOp::BeginUntil { body } | IrOp::BeginAgain { body } => {
+                if contains_exit(body) {
+                    return true;
+                }
             }
-            IrOp::BeginWhileRepeat { test, body } if contains_exit(test) || contains_exit(body) => {
-                return true;
+            IrOp::BeginWhileRepeat { test, body } => {
+                if contains_exit(test) || contains_exit(body) {
+                    return true;
+                }
             }
             _ => {}
         }

crates/core/src/outer.rs

@@ -397,7 +397,8 @@ impl<R: Runtime> ForthVM<R> {
                 use std::time::{SystemTime, UNIX_EPOCH};
                 let seed = SystemTime::now()
                     .duration_since(UNIX_EPOCH)
-                    .map_or(0xDEAD_BEEF_CAFE_BABE, |d| d.as_nanos() as u64);
+                    .map(|d| d.as_nanos() as u64)
+                    .unwrap_or(0xDEAD_BEEF_CAFE_BABE);
                 Arc::new(Mutex::new(if seed == 0 {
                     0xDEAD_BEEF_CAFE_BABE
                 } else {

crates/core/tests/comparison.rs

@@ -26,7 +26,8 @@ fn probe_gforth(candidate: &str) -> bool {
         .arg("-e")
         .arg("bye")
         .output()
-        .is_ok_and(|o| o.status.success())
+        .map(|o| o.status.success())
+        .unwrap_or(false)
 }
 
 fn find_gforth() -> Option<&'static str> {