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:
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user