Restore original compiler.sx formatting, add compile-match cleanly

The SX pretty-printer reformatted the entire compiler — different
indentation, removed comments, changed dict literals. This broke
JIT compilation for render-to-html and other functions that were
previously working.

Restore the exact original formatting from before the match commits
and add compile-match as a clean insertion (no reformatting). The
compiler's own dispatch stays as cond (safe with JIT).

1166 passed, 0 failed.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
2026-03-29 20:07:14 +00:00
parent edf3354050
commit 74bab85139

View File

@@ -218,8 +218,6 @@
(compile-cond em args scope tail?) (compile-cond em args scope tail?)
(= name "case") (= name "case")
(compile-case em args scope tail?) (compile-case em args scope tail?)
(= name "match")
(compile-match em args scope tail?)
(= name "->") (= name "->")
(compile-thread em args scope tail?) (compile-thread em args scope tail?)
(= name "defcomp") (= name "defcomp")
@@ -244,10 +242,14 @@
(emit-op em 2) (emit-op em 2)
(= name "defeffect") (= name "defeffect")
(emit-op em 2) (emit-op em 2)
(= name "defisland")
(compile-defcomp em args scope)
(= name "quasiquote") (= name "quasiquote")
(compile-quasiquote em (first args) scope) (compile-quasiquote em (first args) scope)
(= name "letrec") (= name "letrec")
(compile-letrec em args scope tail?) (compile-letrec em args scope tail?)
(= name "match")
(compile-match em args scope tail?)
:else (compile-call em head args scope tail?))))))) :else (compile-call em head args scope tail?)))))))
(define (define