HS: fetch response unwrap + do-not-throw + dot-prop + JSON coerce (+19 tests)

2026-04-26 22:04:28 +00:00
parent cc800c3004
commit 2dadb6a521
7 changed files with 96 additions and 18 deletions
--- a/lib/hyperscript/parser.sx
+++ b/lib/hyperscript/parser.sx
@@ -438,6 +438,14 @@
            ((and (= (tp-type) "op") (= (tp-val) "'s"))
              (do (adv!) (parse-poss-tail obj)))
            ((= (tp-type) "class") (parse-prop-chain obj))
+            ((= (tp-type) "dot")
+              (do
+                (adv!)
+                (let ((typ2 (tp-type)) (val2 (tp-val)))
+                  (if
+                    (or (= typ2 "ident") (= typ2 "keyword"))
+                    (do (adv!) (parse-poss (list (make-symbol ".") obj val2)))
+                    obj))))
            ((= (tp-type) "paren-open")
              (let
                ((args (parse-call-args)))