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

@@ -41,7 +41,7 @@
 ;; 1. signal — create a reactive container
 ;; --------------------------------------------------------------------------
 
-(define signal
+(define signal :effects []
   (fn ((initial-value :as any))
     (make-signal initial-value)))
 
@@ -54,7 +54,7 @@
 ;; signal as a dependency. Outside reactive context, deref just returns
 ;; the current value — no subscription, no overhead.
 
-(define deref
+(define deref :effects []
   (fn ((s :as any))
     (if (not (signal? s))
       s  ;; non-signal values pass through
@@ -71,7 +71,7 @@
 ;; 3. reset! — write a new value, notify subscribers
 ;; --------------------------------------------------------------------------
 
-(define reset!
+(define reset! :effects [mutation]
   (fn ((s :as signal) value)
     (when (signal? s)
       (let ((old (signal-value s)))
@@ -84,7 +84,7 @@
 ;; 4. swap! — update signal via function
 ;; --------------------------------------------------------------------------
 
-(define swap!
+(define swap! :effects [mutation]
   (fn ((s :as signal) (f :as lambda) &rest args)
     (when (signal? s)
       (let ((old (signal-value s))
@@ -102,7 +102,7 @@
 ;; of its dependencies change. The dependency set is discovered automatically
 ;; by tracking deref calls during evaluation.
 
-(define computed
+(define computed :effects [mutation]
   (fn ((compute-fn :as lambda))
     (let ((s (make-signal nil))
           (deps (list))
@@ -145,7 +145,7 @@
 ;; Like computed, but doesn't produce a signal value. Returns a dispose
 ;; function that tears down the effect.
 
-(define effect
+(define effect :effects [mutation]
   (fn ((effect-fn :as lambda))
     (let ((deps (list))
           (disposed false)
@@ -201,7 +201,7 @@
 (define *batch-depth* 0)
 (define *batch-queue* (list))
 
-(define batch
+(define batch :effects [mutation]
   (fn ((thunk :as lambda))
     (set! *batch-depth* (+ *batch-depth* 1))
     (invoke thunk)
@@ -231,14 +231,14 @@
 ;;
 ;; If inside a batch, queues the signal. Otherwise, notifies immediately.
 
-(define notify-subscribers
+(define notify-subscribers :effects [mutation]
   (fn ((s :as signal))
     (if (> *batch-depth* 0)
       (when (not (contains? *batch-queue* s))
         (append! *batch-queue* s))
       (flush-subscribers s))))
 
-(define flush-subscribers
+(define flush-subscribers :effects [mutation]
   (fn ((s :as signal))
     (for-each
       (fn ((sub :as lambda)) (sub))
@@ -268,7 +268,7 @@
 ;; For computed signals, unsubscribe from all dependencies.
 ;; For effects, the dispose function is returned by effect itself.
 
-(define dispose-computed
+(define dispose-computed :effects [mutation]
   (fn ((s :as signal))
     (when (signal? s)
       (for-each
@@ -287,7 +287,7 @@
 
 (define *island-scope* nil)
 
-(define with-island-scope
+(define with-island-scope :effects [mutation]
   (fn ((scope-fn :as lambda) (body-fn :as lambda))
     (let ((prev *island-scope*))
       (set! *island-scope* scope-fn)
@@ -299,7 +299,7 @@
 ;; The platform's make-signal should call (register-in-scope s) if
 ;; *island-scope* is non-nil.
 
-(define register-in-scope
+(define register-in-scope :effects [mutation]
   (fn ((disposable :as lambda))
     (when *island-scope*
       (*island-scope* disposable))))
@@ -322,7 +322,7 @@
 ;;   (dom-set-data el key val) → void  — store JS value on element
 ;;   (dom-get-data el key)     → any   — retrieve stored value
 
-(define with-marsh-scope
+(define with-marsh-scope :effects [mutation io]
   (fn (marsh-el (body-fn :as lambda))
     ;; Execute body-fn collecting all disposables into a marsh-local list.
     ;; Nested under the current island scope — if the island is disposed,
@@ -335,7 +335,7 @@
       ;; Store disposers on the marsh element for later cleanup
       (dom-set-data marsh-el "sx-marsh-disposers" disposers))))
 
-(define dispose-marsh-scope
+(define dispose-marsh-scope :effects [mutation io]
   (fn (marsh-el)
     ;; Dispose all effects/computeds registered in this marsh's scope.
     ;; Parent island scope and sibling marshes are unaffected.
@@ -358,7 +358,7 @@
 
 (define *store-registry* (dict))
 
-(define def-store
+(define def-store :effects [mutation]
   (fn ((name :as string) (init-fn :as lambda))
     (let ((registry *store-registry*))
       ;; Only create the store once — subsequent calls return existing
@@ -366,14 +366,14 @@
         (set! *store-registry* (assoc registry name (invoke init-fn))))
       (get *store-registry* name))))
 
-(define use-store
+(define use-store :effects []
   (fn ((name :as string))
     (if (has-key? *store-registry* name)
       (get *store-registry* name)
       (error (str "Store not found: " name
                   ". Call (def-store ...) before (use-store ...).")))))
 
-(define clear-stores
+(define clear-stores :effects [mutation]
   (fn ()
     (set! *store-registry* (dict))))
 
@@ -401,11 +401,11 @@
 ;;
 ;; These are platform primitives because they require browser DOM APIs.
 
-(define emit-event
+(define emit-event :effects [io]
   (fn (el (event-name :as string) detail)
     (dom-dispatch el event-name detail)))
 
-(define on-event
+(define on-event :effects [io]
   (fn (el (event-name :as string) (handler :as lambda))
     (dom-listen el event-name handler)))
 
@@ -415,7 +415,7 @@
 ;; When the effect is disposed (island teardown), the listener is
 ;; removed automatically via the cleanup return.
 
-(define bridge-event
+(define bridge-event :effects [mutation io]
   (fn (el (event-name :as string) (target-signal :as signal) transform-fn)
     (effect (fn ()
       (let ((remove (dom-listen el event-name
@@ -449,7 +449,7 @@
 ;; Platform interface required:
 ;;   (promise-then promise on-resolve on-reject) → void
 
-(define resource
+(define resource :effects [mutation io]
   (fn ((fetch-fn :as lambda))
     (let ((state (signal (dict "loading" true "data" nil "error" nil))))
       ;; Kick off the async operation