Fix home-stepper paren balance in rebuild-preview

rebuild-preview had one extra close paren that closed the outer
(when container) prematurely, pushing do-back and build-code-dom
out of the letrec scope. Result: "Undefined symbol: build-code-dom".

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
2026-03-25 15:54:38 +00:00
parent 31ed8b20f4
commit 296729049e

View File

@@ -221,14 +221,13 @@
(swap! step-idx inc)
(update-code-highlight)))))
(rebuild-preview (fn (target)
;; Rebuild preview DOM directly from steps, without replaying do-step
(let ((container (get-preview)))
(when container
(dom-set-prop container "innerHTML" "")
(let ((expr (steps-to-preview (deref steps) target)))
(when expr
(let ((rendered (render-to-dom expr (get-render-env nil) nil)))
(when rendered (dom-append container rendered)))))
(let ((dom (render-to-dom expr (get-render-env nil) nil)))
(when dom (dom-append container dom)))))
(set-stack (list container))))))
(do-back (fn ()
(when (> (deref step-idx) 0)