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

Fix letrec structure: wait-for-el as proper binding, not begin-wrapped

Browse Source 
The previous insert wrapped reload-frame and wait-for-el in a begin
block instead of making them separate letrec bindings. This made
reload-frame invisible to later bindings. Fixed by inserting
wait-for-el at index 3 in the letrec bindings list.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-17 22:16:13 +00:00
parent cc9975aaf0
commit 017451370f
1 changed files with 21 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
sx/sx/applications/htmx/runner.sx
View File

@@ -24,29 +24,28 @@
"true"))
true
(do (hs-wait 200) (wait-boot))))))
(begin
(reload-frame
(fn
()
(let
((w (host-get (dom-query "#test-iframe") "contentWindow")))
(host-call (host-get w "location") "reload")
(hs-wait 1000)
(wait-boot)
(hs-wait 500))))
(wait-for-el
(fn
(sel max-tries)
(let
((doc (get-doc))
(el (when doc (host-call doc "querySelector" sel))))
(reload-frame
(fn
()
(let
((w (host-get (dom-query "#test-iframe") "contentWindow")))
(host-call (host-get w "location") "reload")
(hs-wait 1000)
(wait-boot)
(hs-wait 500))))
(wait-for-el
(fn
(sel max-tries)
(let
((doc (get-doc))
(el (when doc (host-call doc "querySelector" sel))))
(if
el
el
(if
el
el
(if
(<= max-tries 0)
nil
(do (hs-wait 200) (wait-for-el sel (- max-tries 1)))))))))
(<= max-tries 0)
nil
(do (hs-wait 200) (wait-for-el sel (- max-tries 1))))))))
(run-action
(fn
(action)