HS: fix null→nil in generator + asyncCheck fixture (+2 tests)

js_expr_to_sx bare-identifier path returned JS "null"/"undefined" as
literal symbols; added keyword mapping before the identifier regex.
Registered asyncCheck() global (returns true) for async-when test.
Regen'd spec file to propagate the null fix.

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
2026-05-05 04:30:13 +00:00
parent 7b72c064c4
commit 79190e4dac
3 changed files with 11 additions and 1 deletions

View File

@@ -1172,7 +1172,7 @@
))
(deftest "can call global javascript functions"
(hs-cleanup!)
(host-set! (host-global "window") "calledWith" null)
(host-set! (host-global "window") "calledWith" nil)
(let ((_el-div (dom-create-element "div")))
(dom-set-attr _el-div "_" "on click call globalFunction(\"foo\")")
(dom-append (dom-body) _el-div)