Uncommitted sx-tools changes: WASM bundles, Playwright specs, engine fixes

WASM browser bundles rebuilt with latest kernel. Playwright test specs
updated (helpers, navigation, handler-responses, hypermedia-handlers,
isomorphic, SPA navigation). Engine/boot/orchestration SX files updated.
Handler examples and not-found page refreshed.

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

web/boot.sx

@@ -433,15 +433,6 @@
       (run-post-render-hooks)
       (flush-collected-styles)
       (set-timeout (fn () (process-elements nil)) 0)
-      (dom-listen
-        (dom-window)
-        "popstate"
-        (fn
-          (e)
-          (let
-            ((state (host-get e "state"))
-              (scrollY (if state (or (dict-get state "scrollY") 0) 0)))
-            (handle-popstate scrollY))))
       (dom-set-attr
         (host-get (dom-document) "documentElement")
         "data-sx-ready"

web/engine.sx

@@ -361,9 +361,14 @@
         (=
           (dom-get-attr old-node "data-sx-island")
           (dom-get-attr new-node "data-sx-island")))
-      (do
+      (let
+        ((old-state (dom-get-attr old-node "data-sx-state"))
+          (new-state (dom-get-attr new-node "data-sx-state")))
         (sync-attrs old-node new-node)
-        (morph-island-children old-node new-node))
+        (if
+          (and new-state (not (= old-state new-state)))
+          (do (dispose-island old-node) (hydrate-island old-node))
+          (morph-island-children old-node new-node)))
       (or
         (not (= (dom-node-type old-node) (dom-node-type new-node)))
         (not (= (dom-node-name old-node) (dom-node-name new-node))))

web/lib/boot-helpers.sx

@@ -346,7 +346,51 @@
         (resp-ok status get-header text)
         (when
           resp-ok
-          (dom-set-inner-html main text)
+          (let
+            ((ct (or (get-header "content-type") "")))
+            (if
+              (contains? ct "text/html")
+              (let
+                ((parser (host-new "DOMParser"))
+                  (doc (host-call parser "parseFromString" text "text/html"))
+                  (content (host-call doc "querySelector" "#sx-content")))
+                (if
+                  content
+                  (dom-set-inner-html main (host-get content "innerHTML"))
+                  (dom-set-inner-html main text)))
+              (let
+                ((container (dom-create-element "div")))
+                (let
+                  ((rendered (sx-render text)))
+                  (when
+                    rendered
+                    (dom-append container rendered)
+                    (process-oob-swaps
+                      container
+                      (fn
+                        (t oob (s :as string))
+                        (dispose-islands-in t)
+                        (swap-dom-nodes
+                          t
+                          (if
+                            (= s "innerHTML")
+                            (children-to-fragment oob)
+                            oob)
+                          s)
+                        (post-swap t)))
+                    (let
+                      ((content (select-from-container container "#sx-content")))
+                      (if
+                        content
+                        (do
+                          (dispose-islands-in main)
+                          (dom-set-inner-html main "")
+                          (dom-append main content))
+                        (do
+                          (dispose-islands-in main)
+                          (dom-set-inner-html
+                            main
+                            (dom-get-inner-html container))))))))))
           (post-swap main)
           (host-call (dom-window) "scrollTo" 0 scroll-y)))
       (fn (err) (log-warn (str "fetch-and-restore error: " err))))))

web/orchestration.sx

@@ -572,9 +572,7 @@
         (and settle-expr (not (empty? settle-expr)))
         (let
           ((exprs (sx-parse settle-expr)))
-          (for-each
-            (fn (expr) (eval-expr expr (env-extend (dict))))
-            exprs))))))
+          (for-each (fn (expr) (cek-eval expr)) exprs))))))
 
 (define
   activate-scripts
@@ -1585,12 +1583,9 @@
         (pathname (url-pathname url)))
       (when
         target
-        (if
-          (try-client-route pathname target-sel)
-          (browser-scroll-to 0 scrollY)
-          (let
-            ((headers (build-request-headers target "GET" url)))
-            (fetch-and-restore target url headers scrollY)))))))
+        (let
+          ((headers (dict "SX-Request" "true")))
+          (fetch-and-restore target url headers scrollY))))))
 
 (define
   engine-init

web/tests/test-swap-integration.sx

@@ -649,3 +649,28 @@
         (do
           (assert-true (contains? result "~examples/sync-result"))
           (assert-false (contains? result "Searching")))))))
+
+(defsuite
+  "swap:popstate-oob-nav"
+  (deftest
+    "aser preserves sx-swap-oob attribute in OOB elements"
+    (let
+      ((src (quote (<> (div :id "sx-nav" :sx-swap-oob "innerHTML" (span "Updated Nav")) (div :id "sx-content" (p "Page content"))))))
+      (let
+        ((result (serialize (aser src))))
+        (assert-true (contains? result "sx-swap-oob"))
+        (assert-true (contains? result "innerHTML"))
+        (assert-true (contains? result "sx-nav"))
+        (assert-true (contains? result "Updated Nav"))
+        (assert-true (contains? result "Page content")))))
+  (deftest
+    "aser OOB response preserves both targets"
+    (let
+      ((src (quote (<> (div :id "sx-nav" :sx-swap-oob "innerHTML" (span "Nav A")) (div :id "sidebar" :sx-swap-oob "innerHTML" (span "Sidebar B")) (div :id "sx-content" (p "Main"))))))
+      (let
+        ((result (serialize (aser src))))
+        (assert-true (contains? result "sx-nav"))
+        (assert-true (contains? result "sidebar"))
+        (assert-true (contains? result "Nav A"))
+        (assert-true (contains? result "Sidebar B"))
+        (assert-true (contains? result "Main"))))))