HS: fix increment/decrement for possessive/dot properties

my.innerHTML and #el's prop both parse as (poss owner prop) via
parse-poss-tail, not as (. owner prop). emit-inc/emit-dec case 2
only checked for dot-sym — add poss to the OR condition, matching
how emit-set already handles both forms.

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
2026-05-02 10:36:32 +00:00
parent df6480cd96
commit d25a97d464

View File

@@ -628,7 +628,7 @@
(quote do)
(list (quote dom-set-attr) el attr-name (quote __hs-new))
(list (quote set!) (quote it) (quote __hs-new))))))
((and (list? expr) (= (first expr) dot-sym))
((and (list? expr) (or (= (first expr) dot-sym) (= (first expr) (make-symbol "poss"))))
(let
((obj (hs-to-sx (nth expr 1))) (prop (nth expr 2)))
(list
@@ -754,7 +754,7 @@
(quote do)
(list (quote dom-set-attr) el attr-name (quote __hs-new))
(list (quote set!) (quote it) (quote __hs-new))))))
((and (list? expr) (= (first expr) dot-sym))
((and (list? expr) (or (= (first expr) dot-sym) (= (first expr) (make-symbol "poss"))))
(let
((obj (hs-to-sx (nth expr 1))) (prop (nth expr 2)))
(list