ted/glob: add exponential retry
Fixes urbit/urbit#4958
^- form:m
=+ !<([~ hash=@uv] arg)
=/ url "https://bootstrap.urbit.org/glob-{(scow %uv hash)}.glob"
-;< =cord bind:m (fetch-cord:strandio url)
-~| failed-glob+hash
-=+ ;;(=glob:glob (cue cord))
+;< =glob:glob bind:m
+ %+ (retry:strandio ,glob:glob) `5
+ =/ n (strand ,(unit glob:glob))
+ ;< =cord bind:n (fetch-cord:strandio url)
+ %- pure:n
+ %- mole
+ |.
+ ;;(=glob:glob (cue cord))
(pure:m !>(glob))
