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

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:
2026-04-17 22:16:13 +00:00
parent cc9975aaf0
commit 017451370f

View File

@@ -24,7 +24,6 @@
"true")) "true"))
true true
(do (hs-wait 200) (wait-boot)))))) (do (hs-wait 200) (wait-boot))))))
(begin
(reload-frame (reload-frame
(fn (fn
() ()
@@ -46,7 +45,7 @@
(if (if
(<= max-tries 0) (<= max-tries 0)
nil nil
(do (hs-wait 200) (wait-for-el sel (- max-tries 1))))))))) (do (hs-wait 200) (wait-for-el sel (- max-tries 1))))))))
(run-action (run-action
(fn (fn
(action) (action)