urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-24 11:24:21 +03:00
Code Issues Packages Projects Releases Wiki Activity

khan: separate arms by blank comments

Browse Source
This commit is contained in:
Jōshin 2022-03-02 15:09:01 -06:00
parent 1ef958ea25
commit 5d7321385f
No known key found for this signature in database
GPG Key ID: A8BE5A9A521639D0
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkg/arvo/sys/vane/khan.hoon
View File

@ -65,6 +65,7 @@
++ get-beak ++ get-beak
|= [=bear now=@da] |= [=bear now=@da]
?@(bear [our bear %da now] bear) ?@(bear [our bear %da now] bear)
::
++ get-dais ++ get-dais
|= [=beak =mark rof=roof] |= [=beak =mark rof=roof]
^- dais:clay ^- dais:clay
@ -74,6 +75,7 @@
~|(mark-invalid+mark !!) ~|(mark-invalid+mark !!)
?> =(%dais p.u.u.ret) ?> =(%dais p.u.u.ret)
!<(dais:clay q.u.u.ret) !<(dais:clay q.u.u.ret)
::
++ get-tube ++ get-tube
|= [=beak =mark =out=mark rof=roof] |= [=beak =mark =out=mark rof=roof]
^- tube:clay ^- tube:clay
@ -83,10 +85,12 @@
~|(tube-invalid+[mark out-mark] !!) ~|(tube-invalid+[mark out-mark] !!)
?> =(%tube p.u.u.ret) ?> =(%tube p.u.u.ret)
!<(tube:clay q.u.u.ret) !<(tube:clay q.u.u.ret)
::
++ make-wire ++ make-wire
|= [=beak =mark] |= [=beak =mark]
^- wire ^- wire
[%fyrd (en-beam beak mark ~)] [%fyrd (en-beam beak mark ~)]
::
++ read-wire ++ read-wire
|= =wire |= =wire
^- (pair beak mark) ^- (pair beak mark)
@ -94,10 +98,12 @@
?> ?=([%fyrd ^] wire) ?> ?=([%fyrd ^] wire)
=/ =beam (need (de-beam t.wire)) =/ =beam (need (de-beam t.wire))
?>(?=([@ ~] s.beam) beam(s i.s.beam)) ?>(?=([@ ~] s.beam) beam(s i.s.beam))
::
++ start-spider ++ start-spider
|= [our=@p =vase] |= [our=@p =vase]
^- note ^- note
[%g %deal [our our] %spider %poke %spider-start vase] [%g %deal [our our] %spider %poke %spider-start vase]
::
++ watch-spider ++ watch-spider
|= [our=@p =path] |= [our=@p =path]
^- note ^- note