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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user