urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 13:37:36 +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 ++ slab
|= {cog/@tas typ/type} |= {cog/@tas typ/type}
!=(~ q:(~(fino ut typ) 0 %free `cog)) !=(~ q:(~(find ut typ) 0 %free `cog))
:: ::
++ slob :: superficial arm ++ slob :: superficial arm
|= {cog/@tas typ/type} |= {cog/@tas typ/type}
@ -7962,7 +7962,7 @@
[['.' ~] ['-' ~] ~ ~] [['.' ~] ['-' ~] ~ ~]
[[%leaf (mesc (trip paz))] duck ~] [[%leaf (mesc (trip paz))] duck ~]
:: ::
++ fino ++ find
|= {dep/@ud way/?($read $rite $both $free) cug/(unit term)} |= {dep/@ud way/?($read $rite $both $free) cug/(unit term)}
=+ gil=*(set type) =+ gil=*(set type)
|- ^- {p/@ud q/(unit post)} |- ^- {p/@ud q/(unit post)}
@ -8051,7 +8051,7 @@
^- port ^- port
:: ~_ (dunk 'type') :: ~_ (dunk 'type')
~_ (show [%c 'find-limb'] ?~(cug '*' ?:(=(%$ u.cug) '$' [%a u.cug]))) ~_ (show [%c 'find-limb'] ?~(cug '*' ?:(=(%$ u.cug) '$' [%a u.cug])))
=+ hoq=(fino dep way cug) =+ hoq=(find dep way cug)
?~ q.hoq ?~ q.hoq
~|(%find-none !!) ~|(%find-none !!)
(flee u.q.hoq) (flee u.q.hoq)
@ -8061,7 +8061,7 @@
^- post ^- post
:: ~_ (dunk 'type') :: ~_ (dunk 'type')
~_ (show [%c 'find-limb'] ?:(=(%$ cog) '$' [%a cog])) ~_ (show [%c 'find-limb'] ?:(=(%$ cog) '$' [%a cog]))
=+ hoq=(fino dep way `cog) =+ hoq=(find dep way `cog)
?~ q.hoq ?~ q.hoq
~|(%find-none !!) ~|(%find-none !!)
u.q.hoq u.q.hoq
@ -8984,7 +8984,7 @@
[p.gav ?~(sap heh (face u.sap heh))] [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] ~| [%tack-limb q.i.peh]
?: ?=($2 -.q.dob) ?: ?=($2 -.q.dob)
=+ hoc=(peg axe p.dob) =+ hoc=(peg axe p.dob)