Add :effects annotations to all spec files and update bootstrappers

Bootstrappers (bootstrap_py.py, js.sx) now skip :effects keyword in
define forms, enabling effect annotations throughout the spec without
changing generated output.

Annotated 180+ functions across 14 spec files:
- signals.sx: signal/deref [] pure, reset!/swap!/effect/batch [mutation]
- engine.sx: parse-* [] pure, morph-*/swap-* [mutation io]
- orchestration.sx: all [mutation io] (browser event binding)
- adapter-html.sx: render-* [render]
- adapter-dom.sx: render-* [render], reactive-* [render mutation]
- adapter-sx.sx: aser-* [render]
- adapter-async.sx: async-render-*/async-aser-* [render io]
- parser.sx: all [] pure
- render.sx: predicates [] pure, process-bindings [mutation]
- boot.sx: all [mutation io] (browser init)
- deps.sx: scan-*/transitive-* [] pure, compute-all-* [mutation]
- router.sx: all [] pure (URL matching)

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

shared/sx/ref/adapter-html.sx

@@ -13,7 +13,7 @@
 ;; ==========================================================================
 
 
-(define render-to-html
+(define render-to-html :effects [render]
   (fn (expr (env :as dict))
     (set-render-active! true)
     (case (type-of expr)
@@ -33,7 +33,7 @@
       ;; Everything else — evaluate first
       :else     (render-value-to-html (trampoline (eval-expr expr env)) env))))
 
-(define render-value-to-html
+(define render-value-to-html :effects [render]
   (fn (val (env :as dict))
     (case (type-of val)
       "nil"     ""
@@ -55,7 +55,7 @@
         "deftype" "defeffect"
         "map" "map-indexed" "filter" "for-each"))
 
-(define render-html-form?
+(define render-html-form? :effects []
   (fn ((name :as string))
     (contains? RENDER_HTML_FORMS name)))
 
@@ -64,7 +64,7 @@
 ;; render-list-to-html — dispatch on list head
 ;; --------------------------------------------------------------------------
 
-(define render-list-to-html
+(define render-list-to-html :effects [render]
   (fn ((expr :as list) (env :as dict))
     (if (empty? expr)
       ""
@@ -135,7 +135,7 @@
 ;; dispatch-html-form — render-aware special form handling for HTML output
 ;; --------------------------------------------------------------------------
 
-(define dispatch-html-form
+(define dispatch-html-form :effects [render]
   (fn ((name :as string) (expr :as list) (env :as dict))
     (cond
       ;; if
@@ -235,7 +235,7 @@
 ;; render-lambda-html — render a lambda body in HTML context
 ;; --------------------------------------------------------------------------
 
-(define render-lambda-html
+(define render-lambda-html :effects [render]
   (fn ((f :as lambda) (args :as list) (env :as dict))
     (let ((local (env-merge (lambda-closure f) env)))
       (for-each-indexed
@@ -249,7 +249,7 @@
 ;; render-html-component — expand and render a component
 ;; --------------------------------------------------------------------------
 
-(define render-html-component
+(define render-html-component :effects [render]
   (fn ((comp :as component) (args :as list) (env :as dict))
     ;; Expand component and render body through HTML adapter.
     ;; Component body contains rendering forms (HTML tags) that only the
@@ -288,7 +288,7 @@
         (render-to-html (component-body comp) local)))))
 
 
-(define render-html-element
+(define render-html-element :effects [render]
   (fn ((tag :as string) (args :as list) (env :as dict))
     (let ((parsed (parse-element-args args env))
           (attrs  (first parsed))
@@ -312,7 +312,7 @@
 ;; Lakes are server territory inside islands. The morph can update lake
 ;; content while preserving surrounding reactive DOM.
 
-(define render-html-lake
+(define render-html-lake :effects [render]
   (fn ((args :as list) (env :as dict))
     (let ((lake-id nil)
           (lake-tag "div")
@@ -351,7 +351,7 @@
 ;; re-evaluated in the island's signal scope. Server renders children normally;
 ;; the :transform is a client-only concern.
 
-(define render-html-marsh
+(define render-html-marsh :effects [render]
   (fn ((args :as list) (env :as dict))
     (let ((marsh-id nil)
           (marsh-tag "div")
@@ -394,7 +394,7 @@
 ;;   (reset! s v) → no-op
 ;;   (swap! s f)  → no-op
 
-(define render-html-island
+(define render-html-island :effects [render]
   (fn ((island :as island) (args :as list) (env :as dict))
     ;; Parse kwargs and children (same pattern as render-html-component)
     (let ((kwargs (dict))
@@ -452,7 +452,7 @@
 ;; Uses the SX serializer (not JSON) so the client can parse with sx-parse.
 ;; Handles all SX types natively: numbers, strings, booleans, nil, lists, dicts.
 
-(define serialize-island-state
+(define serialize-island-state :effects []
   (fn ((kwargs :as dict))
     (if (empty-dict? kwargs)
       nil