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

This really should work but doesn't, quite.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-12-28 13:35:31 -05:00
parent 5d150690c1
commit 7c871cbf42
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
arvo/hoon.hoon
View File

@ -4317,7 +4317,7 @@
royl
==
--
++ scot ~/ %scot |=(mol/dime ~(rent co %$ mol))
++ scot |=(mol/dime ~(rent co %$ mol))
++ scow |=(mol/dime ~(rend co %$ mol))
++ slat |=(mod/@tas |=(txt/@ta (slaw mod txt)))
++ slav |=({mod/@tas txt/@ta} (need (slaw mod txt)))
@ -10623,7 +10623,7 @@
|= {now/@da fav/curd}
=> .(fav ((hard {$veer lal/@ta pax/path txt/@t}) fav))
?: =(%$ lal.fav)
:: ~& [%tang pax.fav `@p`(mug txt.fav)]
~& [%tang pax.fav `@p`(mug txt.fav)]
=+ gen=(rain pax.fav txt.fav)
=+ vax=(slap pit gen)
+>.$(bud vax)
@ -10631,11 +10631,11 @@
q.niz
|- ^+ q.niz
?~ q.niz
:: ~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
[[lal.fav q.sew:(vint lal.fav vil bud pax.fav txt.fav)] q.niz]
?. =(lal.fav p.i.q.niz)
[i.q.niz $(q.niz t.q.niz)]
:: ~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
:_ t.q.niz
:- p.i.q.niz
q.sew:(ruck:(vent lal.fav vil bud [p.niz q.i.q.niz]) pax.fav txt.fav)