HS parser: possessive 's style property access (517→519/831)

parse-poss-tail now handles style token type after 's operator.
#div2's *color, #foo's *width etc. now correctly produce
(style prop owner) AST which compiles to dom-set/get-style.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
2026-04-16 16:07:52 +00:00
parent fec3194464
commit 98fbd5cf40
2 changed files with 2 additions and 0 deletions

View File

@@ -63,6 +63,7 @@
(let
((prop (get (adv!) "value")))
(parse-prop-chain (list (quote .) owner prop))))
((= typ "style") (do (adv!) (list (quote style) val owner)))
(true owner)))))
(define
parse-prop-chain

View File

@@ -63,6 +63,7 @@
(let
((prop (get (adv!) "value")))
(parse-prop-chain (list (quote .) owner prop))))
((= typ "style") (do (adv!) (list (quote style) val owner)))
(true owner)))))
(define
parse-prop-chain