Step 10c: fix bind subscriber re-evaluation — track names not frames

Root cause: context called inside lambdas (e.g. swap!) went through
nested cek_run with empty kont, so provide frames weren't found and
never tracked to *bind-tracking*.

Three changes in evaluator.sx:
- step-sf-context: track context names (not frames) to *bind-tracking*
  — names work across cek_run boundaries via scope-peek fallback
- bind continue: resolve tracked names to frames via kont-find-provide
  on rest-k before registering subscribers
- subscriber: use empty kont instead of kont-extract-provides — old
  approach created provide frames whose continue handlers called
  scope-pop!, corrupting the scope stack

2752/2768 OCaml tests pass (all 7 bind subscriber tests fixed).
32/32 WASM native tests pass.

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

shared/static/wasm/sx/highlight.sx

@@ -1,6 +1,7 @@
 
 
-(define-library (sx highlight)
+(define-library
+  (sx highlight)
   (export
     sx-specials
     sx-special?
@@ -16,7 +17,6 @@
     highlight-sx
     highlight)
   (begin
-
     (define
       sx-specials
       (list
@@ -54,16 +54,32 @@
         "for-each"
         "&key"
         "&rest"
-    "set!"))
+        "set!"
-
+        "satisfies?"
+        "match"
+        "let-match"
+        "define-protocol"
+        "implement"
+        "->>"
+        "|>"
+        "as->"
+        "define-library"
+        "import"
+        "perform"
+        "guard"
+        "call/cc"
+        "raise"
+        "define-syntax"
+        "syntax-rules"
+        "make-parameter"
+        "parameterize"))
     (define sx-special? (fn (s) (some (fn (x) (= x s)) sx-specials)))
-
     (define hl-digit? (fn (c) (and (>= c "0") (<= c "9"))))
-
     (define
       hl-alpha?
-  (fn (c) (or (and (>= c "a") (<= c "z")) (and (>= c "A") (<= c "Z")))))
+      (fn
-
+        (c)
+        (or (and (>= c "a") (<= c "z")) (and (>= c "A") (<= c "Z")))))
     (define
       hl-sym-char?
       (fn
@@ -83,11 +99,10 @@
           (= c "=")
           (= c "&")
           (= c "."))))
-
+    (define
-(define hl-ws? (fn (c) (or (= c " ") (= c "\n") (= c "\t") (= c "\r"))))
+      hl-ws?
-
+      (fn (c) (or (= c " ") (= c "\n") (= c "\t") (= c "\r"))))
     (define hl-escape (fn (s) s))
-
     (define
       hl-span
       (fn
@@ -96,7 +111,6 @@
           (= class "")
           (list (quote span) text)
           (list (quote span) (make-keyword "class") class text))))
-
     (define
       tokenize-sx
       (fn
@@ -196,7 +210,8 @@
                             tokens
                             (append
                               tokens
-                          (list (list "component" (substring code start i))))))
+                              (list
+                                (list "component" (substring code start i))))))
                         (if
                           (or
                             (= c "(")
@@ -229,7 +244,8 @@
                                 tokens
                                 (append
                                   tokens
-                              (list (list "number" (substring code start i))))))
+                                  (list
+                                    (list "number" (substring code start i))))))
                             (if
                               (hl-sym-char? c)
                               (let
@@ -240,7 +256,8 @@
                                   (when
                                     (and
                                       (< i len)
-                                  (hl-sym-char? (substring code i (+ i 1))))
+                                      (hl-sym-char?
+                                        (substring code i (+ i 1))))
                                     (set! i (+ i 1))
                                     (scan)))
                                 (let
@@ -284,7 +301,8 @@
                                     tokens
                                     (append
                                       tokens
-                                  (list (list "ws" (substring code start i))))))
+                                      (list
+                                        (list "ws" (substring code start i))))))
                                 (do
                                   (set!
                                     tokens
@@ -292,9 +310,7 @@
                                   (set! i (+ i 1))))))))))))
               (loop)))
           tokens)))
-
     (define sx-token-classes {:boolean "text-orange-600" :component "text-rose-600 font-semibold" :number "text-amber-700" :string "text-emerald-700" :special "text-sky-700 font-semibold" :paren "text-stone-400" :keyword "text-violet-600" :comment "text-stone-400 italic"})
-
     (define
       render-sx-tokens
       (fn
@@ -306,20 +322,19 @@
               ((cls (or (dict-get sx-token-classes (first tok)) "")))
               (hl-span cls (nth tok 1))))
           tokens)))
-
+    (define highlight-sx (fn (code) (-> code tokenize-sx render-sx-tokens)))
-(define highlight-sx (fn (code) (render-sx-tokens (tokenize-sx code))))
-
     (define
       highlight
       (fn
         (code lang)
         (if
-      (or (= lang "lisp") (= lang "sx") (= lang "sexp") (= lang "scheme"))
+          (or
+            (= lang "lisp")
+            (= lang "sx")
+            (= lang "sexp")
+            (= lang "scheme"))
           (highlight-sx code)
-      (list (quote code) code))))
+          (list (quote code) code)))))) ;; end define-library
-
-
-)) ;; end define-library
 
 ;; Re-export to global namespace for backward compatibility
 (import (sx highlight))

shared/static/wasm/sx_browser.bc.wasm.js

@@ -1792,7 +1792,7 @@
             blake2_js_for_wasm_create: blake2_js_for_wasm_create};
    }
    (globalThis))
-({"link":[["runtime-0db9b496",0],["prelude-d7e4b000",0],["stdlib-23ce0836",[]],["sx-418217b8",[2]],["jsoo_runtime-f96b44a8",[2]],["js_of_ocaml-651f6707",[2,4]],["dune__exe__Sx_browser-0734e8ba",[2,3,5]],["std_exit-10fb8830",[2]],["start-f5d3f095",0]],"generated":(b=>{var
+({"link":[["runtime-0db9b496",0],["prelude-d7e4b000",0],["stdlib-23ce0836",[]],["sx-b2cc3269",[2]],["jsoo_runtime-f96b44a8",[2]],["js_of_ocaml-651f6707",[2,4]],["dune__exe__Sx_browser-9b135b3a",[2,3,5]],["std_exit-10fb8830",[2]],["start-f5d3f095",0]],"generated":(b=>{var
 c=b,a=b?.module?.export||b;return{"env":{"caml_ba_kind_of_typed_array":()=>{throw new
 Error("caml_ba_kind_of_typed_array not implemented")},"caml_exn_with_js_backtrace":()=>{throw new
 Error("caml_exn_with_js_backtrace not implemented")},"caml_int64_create_lo_mi_hi":()=>{throw new

spec/evaluator.sx

@@ -2745,10 +2745,10 @@
             nil))
         (frame (kont-find-provide kont name)))
       (when
-        (and frame *bind-tracking*)
+        *bind-tracking*
         (when
-          (not (contains? *bind-tracking* frame))
+          (not (contains? *bind-tracking* name))
-          (append! *bind-tracking* frame)))
+          (append! *bind-tracking* name)))
       (make-cek-value
         (if
           frame
@@ -3597,14 +3597,18 @@
                   (prev (get frame "prev-tracking")))
                 (set! *bind-tracking* prev)
                 (let
-                  ((subscriber (fn (fire-kont) (let ((provide-kont (kont-extract-provides fire-kont))) (cek-run (make-cek-state body fenv provide-kont))))))
+                  ((subscriber (fn (fire-kont) (cek-run (make-cek-state body fenv (list))))))
                   (for-each
                     (fn
-                      (pf)
+                      (name)
+                      (let
+                        ((pf (kont-find-provide rest-k name)))
+                        (when
+                          pf
                           (dict-set!
                             pf
                             "subscribers"
-                        (append (get pf "subscribers") (list subscriber))))
+                            (append (get pf "subscribers") (list subscriber))))))
                     tracked))
                 (make-cek-value value fenv rest-k)))
             ("provide-set"