mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 16:51:42 +03:00
16 lines
425 B
Plaintext
16 lines
425 B
Plaintext
|
/- spider, *dice
|
||
|
|
/+ strand, strandio, naive, dice
|
||
|
|
=, strand=strand:spider
|
||
|
|
^- thread:spider
|
||
|
|
|= arg=vase
|
||
|
|
=/ m (strand ,vase)
|
||
|
|
^- form:m
|
||
|
|
=/ url=tape
|
||
|
|
?~ lur=!<((unit tape) arg)
|
||
|
|
"https://bootstrap.urbit.org/mainnet.azimuth-snapshot"
|
||
|
|
u.lur
|
||
|
|
;< =cord bind:m (fetch-cord:strandio url)
|
||
|
|
=+ ;;(snap=snap-state (cue cord))
|
||
|
|
;< ~ bind:m (poke-our:strandio %azimuth %azimuth-poke !>([%load snap]))
|
||
|
|
(pure:m !>(~))
|