Add (param :as type) annotations to all fn/lambda params across SX spec

Extend the type annotation system from defcomp-only to fn/lambda params:
- Infrastructure: sf-lambda, py/js-collect-params-loop, and bootstrap_py.py
  now recognize (name :as type) in param lists, extracting just the name
- bootstrap_py.py: add _extract_param_name() helper, fix _emit_for_each_stmt
- 521 type annotations across 22 .sx spec files (eval, types, adapters,
  transpilers, engine, orchestration, deps, signals, router, prove, etc.)
- Zero behavioral change: annotations are metadata for static analysis only
- All bootstrappers (Python, JS, G1) pass, 81/81 spec tests pass

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

shared/sx/ref/boot.sx

@@ -72,7 +72,7 @@
 ;; --------------------------------------------------------------------------
 
 (define sx-mount
-  (fn (target source extra-env)
+  (fn (target (source :as string) (extra-env :as dict))
     ;; Render SX source string into target element.
     ;; target: Element or CSS selector string
     ;; source: SX source string
@@ -101,7 +101,7 @@
 ;; new SX content, and replaces the wrapper's children.
 
 (define resolve-suspense
-  (fn (id sx)
+  (fn ((id :as string) (sx :as string))
     ;; Process any new <script type="text/sx"> tags that arrived via
     ;; streaming (e.g. extra component defs) before resolving.
     (process-sx-scripts nil)
@@ -166,7 +166,7 @@
 ;; --------------------------------------------------------------------------
 
 (define sx-render-component
-  (fn (name kwargs extra-env)
+  (fn ((name :as string) (kwargs :as dict) (extra-env :as dict))
     ;; Render a named component with keyword args.
     ;; name: component name (with or without ~ prefix)
     ;; kwargs: dict of param-name → value
@@ -179,7 +179,7 @@
           ;; Build synthetic call expression
           (let ((call-expr (list (make-symbol full-name))))
             (for-each
-              (fn (k)
+              (fn ((k :as string))
                 (append! call-expr (make-keyword (to-kebab k)))
                 (append! call-expr (dict-get kwargs k)))
               (keys kwargs))
@@ -236,7 +236,7 @@
 ;; --------------------------------------------------------------------------
 
 (define process-component-script
-  (fn (script text)
+  (fn (script (text :as string))
     ;; Handle <script type="text/sx" data-components data-hash="...">
     (let ((hash (dom-get-attr script "data-hash")))
       (if (nil? hash)
@@ -304,7 +304,7 @@
                 (let ((pages (parse text)))
                   (log-info (str "pages: parsed " (len pages) " entries"))
                   (for-each
-                    (fn (page)
+                    (fn ((page :as dict))
                       (append! _page-routes
                         (merge page
                           {"parsed" (parse-route-pattern (get page "path"))})))
@@ -358,7 +358,7 @@
 
               ;; Bind params from kwargs
               (for-each
-                (fn (p)
+                (fn ((p :as string))
                   (env-set! local p (if (dict-has? kwargs p) (dict-get kwargs p) nil)))
                 (component-params comp))
 
@@ -393,7 +393,7 @@
     (let ((disposers (dom-get-data el "sx-disposers")))
       (when disposers
         (for-each
-          (fn (d)
+          (fn ((d :as lambda))
             (when (callable? d) (d)))
           disposers)
         (dom-set-data el "sx-disposers" nil)))))