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

Merge commit 'a6dbfef' into HEAD

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-12-20 15:44:06 -08:00
commit 6accd2009c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
arvo/hoon.hoon
View File

@ -6608,7 +6608,7 @@
::
++ slab
|= {cog/@tas typ/type}
!=(~ q:(~(fino ut typ) 0 %free `cog))
!=(~ q:(~(find ut typ) 0 %free `cog))
::
++ slob :: superficial arm
|= {cog/@tas typ/type}
@ -7962,7 +7962,7 @@
[['.' ~] ['-' ~] ~ ~]
[[%leaf (mesc (trip paz))] duck ~]
::
++ fino
++ find
|= {dep/@ud way/?($read $rite $both $free) cug/(unit term)}
=+ gil=*(set type)
|- ^- {p/@ud q/(unit post)}
@ -8051,7 +8051,7 @@
^- port
:: ~_ (dunk 'type')
~_ (show [%c 'find-limb'] ?~(cug '*' ?:(=(%$ u.cug) '$' [%a u.cug])))
=+ hoq=(fino dep way cug)
=+ hoq=(find dep way cug)
?~ q.hoq
~|(%find-none !!)
(flee u.q.hoq)
@ -8061,7 +8061,7 @@
^- post
:: ~_ (dunk 'type')
~_ (show [%c 'find-limb'] ?:(=(%$ cog) '$' [%a cog]))
=+ hoq=(fino dep way `cog)
=+ hoq=(find dep way `cog)
?~ q.hoq
~|(%find-none !!)
u.q.hoq
@ -8984,7 +8984,7 @@
[p.gav ?~(sap heh (face u.sap heh))]
::
{$| *}
=+ dob=`post`(need q:(fino p.i.peh %rite q.i.peh))
=+ dob=`post`(need q:(find p.i.peh %rite q.i.peh))
~| [%tack-limb q.i.peh]
?: ?=($2 -.q.dob)
=+ hoc=(peg axe p.dob)