SX renderer: adapter-html.sx as sole renderer, conditions, pattern matching

Evaluator: conditions/restarts, pattern matching, render-trace support.
adapter-html.sx: full SX-defined HTML renderer replacing native OCaml.
spec/render.sx: updated render mode helpers.
sx_browser.ml: use SX render-to-html instead of native.
sx_ref.ml: evaluator updates for conditions + match.
Bootstrap + transpiler updates for new forms.

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

hosts/ocaml/bin/run_tests.ml

@@ -292,10 +292,15 @@ let make_test_env () =
   bind "eval-expr" (fun args ->
     match args with
     | [expr; e] ->
+      (match e with
+       | Dict _ -> Printf.eprintf "[EVAL-EXPR] env is Dict! expr=%s\n%!" (Sx_runtime.value_to_str expr)
+       | Nil -> Printf.eprintf "[EVAL-EXPR] env is Nil! expr=%s\n%!" (Sx_runtime.value_to_str expr)
+       | _ -> ());
       let ue = Sx_runtime.unwrap_env e in
       eval_expr expr (Env ue)
     | [expr] -> eval_expr expr (Env env)
     | _ -> raise (Eval_error "eval-expr: expected (expr env)"));
+  bind "set-render-active!" (fun _args -> Nil);
   (* Scope primitives — use a local scope stacks table.
      Must match the same pattern as sx_server.ml's _scope_stacks. *)
   let _scope_stacks : (string, Sx_types.value list) Hashtbl.t = Hashtbl.create 8 in
@@ -354,20 +359,62 @@ let make_test_env () =
   bind "cond-scheme?" (fun args ->
     match args with
     | [(List clauses | ListRef { contents = clauses })] ->
-      (match clauses with
-       | (List _ | ListRef _) :: _ -> Bool true
-       | _ -> Bool false)
+      Bool (List.for_all (fun c ->
+        match c with
+        | List l | ListRef { contents = l } -> List.length l = 2
+        | _ -> false
+      ) clauses)
     | _ -> Bool false);
   bind "expand-macro" (fun args ->
     match args with
     | [Macro m; (List a | ListRef { contents = a }); _] ->
       let local = Sx_types.env_extend m.m_closure in
-      List.iteri (fun i p ->
-        ignore (Sx_types.env_bind local p (if i < List.length a then List.nth a i else Nil))
-      ) m.m_params;
+      let rec bind_params ps as' =
+        match ps, as' with
+        | [], rest ->
+          (match m.m_rest_param with
+           | Some rp -> ignore (Sx_types.env_bind local rp (List rest))
+           | None -> ())
+        | p :: ps_rest, a :: as_rest ->
+          ignore (Sx_types.env_bind local p a);
+          bind_params ps_rest as_rest
+        | remaining, [] ->
+          List.iter (fun p -> ignore (Sx_types.env_bind local p Nil)) remaining
+      in
+      bind_params m.m_params a;
       eval_expr m.m_body (Env local)
     | _ -> raise (Eval_error "expand-macro: expected (macro args env)"));
 
+  (* Declarative type/effect forms — no-ops at runtime *)
+  bind "deftype" (fun _args -> Nil);
+  bind "defeffect" (fun _args -> Nil);
+
+  (* --- Primitives for canonical.sx / content tests --- *)
+  bind "contains-char?" (fun args ->
+    match args with
+    | [String s; String c] when String.length c = 1 ->
+      Bool (String.contains s c.[0])
+    | _ -> Bool false);
+  bind "escape-string" (fun args ->
+    match args with
+    | [String s] ->
+      let buf = Buffer.create (String.length s + 4) in
+      String.iter (fun c -> match c with
+        | '"' -> Buffer.add_string buf "\\\""
+        | '\\' -> Buffer.add_string buf "\\\\"
+        | '\n' -> Buffer.add_string buf "\\n"
+        | '\t' -> Buffer.add_string buf "\\t"
+        | c -> Buffer.add_char buf c) s;
+      String (Buffer.contents buf)
+    | _ -> raise (Eval_error "escape-string: expected string"));
+  bind "sha3-256" (fun args ->
+    match args with
+    | [String s] ->
+      (* Stub: use a simple hash for testing — not real SHA3 *)
+      let h = Hashtbl.hash s in
+      String (Printf.sprintf "%064x" (abs h))
+    | _ -> raise (Eval_error "sha3-256: expected string"));
+
   (* --- Missing primitives referenced by tests --- *)
 
   bind "upcase" (fun args ->
@@ -467,6 +514,8 @@ let make_test_env () =
   bind "component-param-types" (fun _args -> Nil);
 
   bind "component-set-param-types!" (fun _args -> Nil);
+  bind "component-file" (fun args -> match args with [v] -> component_file v | _ -> Nil);
+  bind "component-set-file!" (fun args -> match args with [v; f] -> component_set_file v f | _ -> Nil);
 
   bind "component-params" (fun args ->
     match args with