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/render.sx

@@ -71,14 +71,14 @@
 ;; Shared utilities
 ;; --------------------------------------------------------------------------
 
-(define definition-form?
+(define definition-form? :effects []
   (fn ((name :as string))
     (or (= name "define") (= name "defcomp") (= name "defisland")
         (= name "defmacro") (= name "defstyle") (= name "defhandler")
         (= name "deftype") (= name "defeffect"))))
 
 
-(define parse-element-args
+(define parse-element-args :effects [render]
   (fn ((args :as list) (env :as dict))
     ;; Parse (:key val :key2 val2 child1 child2) into (attrs-dict children-list)
     (let ((attrs (dict))
@@ -101,7 +101,7 @@
       (list attrs children))))
 
 
-(define render-attrs
+(define render-attrs :effects []
   (fn ((attrs :as dict))
     ;; Render an attrs dict to an HTML attribute string.
     ;; Used by adapter-html.sx and adapter-sx.sx.
@@ -133,13 +133,13 @@
 ;; eval-cond: find matching cond branch, return unevaluated body expr.
 ;; Handles both scheme-style ((test body) ...) and clojure-style
 ;; (test body test body ...).
-(define eval-cond
+(define eval-cond :effects []
   (fn ((clauses :as list) (env :as dict))
     (if (cond-scheme? clauses)
       (eval-cond-scheme clauses env)
       (eval-cond-clojure clauses env))))
 
-(define eval-cond-scheme
+(define eval-cond-scheme :effects []
   (fn ((clauses :as list) (env :as dict))
     (if (empty? clauses)
       nil
@@ -156,7 +156,7 @@
             body
             (eval-cond-scheme (rest clauses) env)))))))
 
-(define eval-cond-clojure
+(define eval-cond-clojure :effects []
   (fn ((clauses :as list) (env :as dict))
     (if (< (len clauses) 2)
       nil
@@ -173,7 +173,7 @@
 
 ;; process-bindings: evaluate let-binding pairs, return extended env.
 ;; bindings = ((name1 expr1) (name2 expr2) ...)
-(define process-bindings
+(define process-bindings :effects [mutation]
   (fn ((bindings :as list) (env :as dict))
     ;; env-extend (not merge) — Env is not a dict subclass, so merge()
     ;; returns an empty dict, losing all parent scope bindings.
@@ -195,7 +195,7 @@
 ;; Used by eval-list to dispatch rendering forms to the active adapter
 ;; (HTML, SX wire, or DOM) rather than evaluating them as function calls.
 
-(define is-render-expr?
+(define is-render-expr? :effects []
   (fn (expr)
     (if (or (not (= (type-of expr) "list")) (empty? expr))
       false