HS: viewTransition command (+9 tests)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 18s

Add 'start view transition [using EXPR] [then] BODY end' syntax.
- tokenizer: add 'view' as a keyword
- parser: add 'start' to cmd-kw? and dispatch to view-transition! AST node
- compiler: emit hs-view-transition! call from view-transition! node

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
2026-04-27 05:18:38 +00:00
parent 9256719fa8
commit 1723808517
6 changed files with 32 additions and 2 deletions

View File

@@ -1832,6 +1832,9 @@
(hs-to-sx (nth ast 2))))
((= head (quote set-el!))
(list (quote hs-set-element!) (hs-to-sx (nth ast 1)) (hs-to-sx (nth ast 2))))
((= head (quote view-transition!))
(let ((body (nth ast 2)))
(list (quote hs-view-transition!) (hs-to-sx (nth ast 1)) (if (nil? body) (quote nil) (hs-to-sx body)))))
((= head (quote put!))
(let
((val (hs-to-sx (nth ast 1)))