ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 23:47:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

%wyll to %will.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-10-08 12:45:01 -07:00
parent ae72b8f10f
commit 7a6b52f178
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
sys/vane/ames.hoon
View File

@ -1562,6 +1562,7 @@
=+ hun=(slaw %p i.tyl)
?~ hun [~ ~]
?. =(`@`0 ren) ~
~& [%ames-scry tyl]
?+ lot ~
{$$ $ud @}
(perm who u.hun q.p.lot [syd t.tyl])
@ -1673,7 +1674,7 @@
:+ (scot %p p.p.kyz)
(scot %p q.p.kyz)
q.kyz
[hen %pass pax %g %deal p.kyz %hood %poke %wyll !>(wyl)]~
[hen %pass pax %g %deal p.kyz %hood %poke %will !>(wyl)]~
?: ?=($wegh -.kyz)
~& %ames-weighing
[[hen %give %mass wegh]~ +>]
@ -1734,12 +1735,12 @@
^- (unit (unit cage))
?~ tyl ~
?: ?=({$name $~} tyl)
=+ wul=$(tyl [%wyll ~])
=+ wul=$(tyl [%will ~])
:+ ~ ~
:- %noun
!>(?~(wul (scot %p his) (gnow:title his q.q.q:((hard deyd) -.u.wul))))
?: ?=({$gcos $~} tyl)
=+ wul=$(tyl [%wyll ~])
=+ wul=$(tyl [%will ~])
?~(wul ~ ``[%noun !>(`gcos`q.q.q:((hard deyd) -.u.wul))])
=+ gys=(~(us go ton.fox) our)
?~ gys ~