coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
giles
2026-04-26 22:04:28 +00:00
parent cc800c3004
commit 2dadb6a521
7 changed files with 96 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/hyperscript/compiler.sx
View File

@@ -1746,6 +1746,7 @@
(list? c)
(or
(= (first c) (quote hs-fetch))
(= (first c) (quote hs-fetch-no-throw))
(= (first c) (quote hs-wait))
(= (first c) (quote hs-wait-for))
(= (first c) (quote hs-wait-for-or))
@@ -1759,7 +1760,9 @@
(if
(and
(list? cmd)
(= (first cmd) (quote hs-fetch)))
(or
(= (first cmd) (quote hs-fetch))
(= (first cmd) (quote hs-fetch-no-throw))))
(list
(quote let)
(list (list (quote it) cmd))
@@ -1882,7 +1885,7 @@
(list (quote fn) (list) (hs-to-sx (nth ast 2)))))
((= head (quote fetch))
(list
(quote hs-fetch)
(if (nth ast 3) (quote hs-fetch-no-throw) (quote hs-fetch))
(hs-to-sx (nth ast 1))
(nth ast 2)))
((= head (quote fetch-gql))