mirror of
https://github.com/urbit/shrub.git
synced 2024-12-26 13:31:36 +03:00
17 lines
322 B
Plaintext
17 lines
322 B
Plaintext
|
/- h=hood
|
||
|
|
:- %say
|
||
|
|
|= [[now=@da eny=@uvJ bec=beak] ~ ~]
|
||
|
|
:- %tang
|
||
|
|
^- tang
|
||
|
|
=+ .^ hop=jump:h
|
||
|
|
%gx
|
||
|
|
(scot %p p.bec)
|
||
|
|
%hood
|
||
|
|
(scot %da now)
|
||
|
|
/kiln/jumps/noun
|
||
|
|
==
|
||
|
|
?> ?=(%all -.hop)
|
||
|
|
%+ turn ~(tap by all.hop)
|
||
|
|
|= [old=dock new=dock]
|
||
|
|
leaf+"{<p.old>}/{(trip q.old)} -> {<p.new>}/{(trip q.new)}"
|