HS: implicit variable declaration, console mock, increment/decrement fix

Integration:
- hs-collect-vars: scan compiled SX for set! targets, collect symbols
- hs-handler: pre-declare collected variables in closure let-bindings
  so increment/decrement work on first use (variable persists across
  event handler calls via closure scope)

Compiler:
- Fix emit-inc/emit-dec: use expr (variable) not tgt-override (element)
- Simplify to plain (set! x (+ x amount)) since vars are pre-declared

Mock DOM:
- Add mock console object to host-global
- Add console handler (no-op) to host-call dispatch
- Override console-log/debug/error as no-op primitives to avoid
  str hitting circular refs in mock DOM elements

Fixes 4 log timeouts, 2+ increment/decrement failures.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

lib/hyperscript/compiler.sx

@@ -364,10 +364,7 @@
           (true
             (let
               ((t (hs-to-sx expr)))
-              (list
+              (list (quote set!) t (list (quote +) t amount)))))))
-                (quote set!)
-                t
-                (list (quote +) (list (quote or) t 0) amount)))))))
     (define
       emit-dec
       (fn
@@ -416,10 +413,7 @@
           (true
             (let
               ((t (hs-to-sx expr)))
-              (list
+              (list (quote set!) t (list (quote -) t amount)))))))
-                (quote set!)
-                t
-                (list (quote -) (list (quote or) t 0) amount)))))))
     (define
       emit-behavior
       (fn

lib/hyperscript/integration.sx

@@ -10,20 +10,46 @@
 ;; Returns a function (fn (me) ...) that can be called with a DOM element.
 ;; Uses eval-expr-cek to turn the SX data structure into a live closure.
 
-(define
+(begin
-  hs-handler
+  (define
-  (fn
+    hs-collect-vars
-    (src)
+    (fn
-    (let
+      (sx)
-      ((sx (hs-to-sx-from-source src)))
+      (define vars (list))
-      (eval-expr-cek
+      (define
-        (list
+        walk
-          (quote fn)
+        (fn
-          (list (quote me))
+          (node)
-          (list
+          (when
-            (quote let)
+            (list? node)
-            (list (list (quote it) nil) (list (quote event) nil))
+            (when
-            sx))))))
+              (and
+                (> (len node) 1)
+                (= (first node) (quote set!))
+                (symbol? (nth node 1)))
+              (let
+                ((name (nth node 1)))
+                (when
+                  (not (some (fn (v) (= v name)) vars))
+                  (set! vars (cons name vars)))))
+            (for-each walk node))))
+      (walk sx)
+      vars))
+  (define
+    hs-handler
+    (fn
+      (src)
+      (let
+        ((sx (hs-to-sx-from-source src)))
+        (let
+          ((extra-vars (hs-collect-vars sx)))
+          (let
+            ((bindings (append (list (list (quote it) nil) (list (quote event) nil)) (map (fn (v) (list v nil)) extra-vars))))
+            (eval-expr-cek
+              (list
+                (quote fn)
+                (list (quote me))
+                (list (quote let) bindings sx)))))))))
 
 ;; ── Activate a single element ───────────────────────────────────
 ;; Reads the _="..." attribute, compiles, and executes with me=element.