ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

gall: some lark replacements

Browse Source
This commit is contained in:
Jared Tobin 2019-04-27 17:05:43 +12:00 committed by Jared Tobin
parent 8b9a208f0f
commit dbc946a1fd
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4
1 changed files with 24 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
pkg/arvo/sys/vane/gall.hoon
View File

@ -850,21 +850,28 @@
(mo-give:abedded %unto %quit ~)
==
::
++ ap :: agent engine
:: +ap: agent engine
::
++ ap
~% %gall-ap +> ~
|_ $: $: dap/dude
pry/prey
ost/bone
zip/(list cove)
dub/(list (each suss tang))
|_ $: $: dap=dude
pry=prey
ost=bone
zip=(list cove)
dub=(list (each suss tang))
==
seat
==
::
++ ap-abed :: initialize
++ ap-state .
::
:: +ap-abed: initialise.
::
++ ap-abed
~/ %ap-abed
|= {dap/dude pry/prey}
^+ +>
|= [dap=dude pry=prey]
^+ ap-state
::
=: ^dap dap
^pry pry
+>+<+ `seat`(~(got by bum.mas) dap)
@ -875,18 +882,21 @@
lat.tyc now
==
?^ unt
+>.$(ost u.unt)
%= +>.$
ap-state(ost u.unt)
%= ap-state
ost p.zam
p.zam +(p.zam)
q.zam (~(put by q.zam) hen p.zam)
r.zam (~(put by r.zam) p.zam hen)
==
::
++ ap-abet :: resolve
^+ +>
:: +ap-abet: resolve moves.
::
++ ap-abet
^+ mo-state
::
=> ap-abut
%_ +>
%_ mo-state
bum.mas (~(put by bum.mas) dap +<+)
moves :(weld (turn zip ap-aver) (turn dub ap-avid) moves)
==