diff --git a/lib/hyperscript/compiler.sx b/lib/hyperscript/compiler.sx index d3e03214..73daa348 100644 --- a/lib/hyperscript/compiler.sx +++ b/lib/hyperscript/compiler.sx @@ -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