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

Ready to switch over to new find/fino.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-11-27 15:13:40 -08:00
parent f60e427d40
commit cb435488bb
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

@ -6570,7 +6570,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]
@ -7864,7 +7864,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)]
@ -7953,7 +7953,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)
@ -7963,7 +7963,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
@ -8904,7 +8904,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)