From 74bab8513987dfaec4392a9992fc65608c767393 Mon Sep 17 00:00:00 2001 From: giles Date: Sun, 29 Mar 2026 20:07:14 +0000 Subject: [PATCH] Restore original compiler.sx formatting, add compile-match cleanly MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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) --- lib/compiler.sx | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/compiler.sx b/lib/compiler.sx index c385871d..1835f91a 100644 --- a/lib/compiler.sx +++ b/lib/compiler.sx @@ -218,8 +218,6 @@ (compile-cond em args scope tail?) (= name "case") (compile-case em args scope tail?) - (= name "match") - (compile-match em args scope tail?) (= name "->") (compile-thread em args scope tail?) (= name "defcomp") @@ -244,10 +242,14 @@ (emit-op em 2) (= name "defeffect") (emit-op em 2) + (= name "defisland") + (compile-defcomp em args scope) (= name "quasiquote") (compile-quasiquote em (first args) scope) (= name "letrec") (compile-letrec em args scope tail?) + (= name "match") + (compile-match em args scope tail?) :else (compile-call em head args scope tail?))))))) (define