khan: separate arms by blank comments

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

View File

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