Fix stepper double-parse hang + MCP signals + JIT suppression

- home-stepper.sx: source stays as string (not pre-parsed), fixes
  infinite loop where sx-parse was called on already-parsed expression
- sx_server.ml: _jit_warned check + skip pre-warm (from 5c8b05a base)
- mcp_tree.ml: load signals.sx, render.sx, adapter-html.sx
- sx_primitives.ml: revert debug backtrace

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
2026-03-29 23:32:46 +00:00
parent 9af38a8fbe
commit 5c30dcd82c

View File

@@ -2,7 +2,12 @@
~home/stepper
()
(let
((source (first (sx-parse "(div (~cssx/tw :tokens \"text-center\")\n (h1 (~cssx/tw :tokens \"text-3xl font-bold mb-2\")\n (span (~cssx/tw :tokens \"text-rose-500\") \"the \")\n (span (~cssx/tw :tokens \"text-amber-500\") \"joy \")\n (span (~cssx/tw :tokens \"text-emerald-500\") \"of \")\n (span (~cssx/tw :tokens \"text-violet-600 text-4xl\") \"sx\")))")))
((source "(div (~cssx/tw :tokens \"text-center\")\n (h1 (~cssx/tw :tokens \"text-3xl font-bold mb-2\")\n (span (~cssx/tw :tokens \"text-rose-500\") \"the \")\n (span (~cssx/tw :tokens \"text-amber-500\") \"joy \")\n (span (~cssx/tw :tokens \"text-emerald-500\") \"of \")\n (span (~cssx/tw :tokens \"text-violet-600 text-4xl\") \"sx\")))")
(h1 (~cssx/tw :tokens "text-3xl font-bold mb-2")
(span (~cssx/tw :tokens "text-rose-500") "the ")
(span (~cssx/tw :tokens "text-amber-500") "joy ")
(span (~cssx/tw :tokens "text-emerald-500") "of ")
(span (~cssx/tw :tokens "text-violet-600 text-4xl") "sx")))")
(store
(if (client?) (def-store "home-stepper" (fn () {:step-idx (signal 9)})) nil))
(steps (signal (list)))