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

boots now (sort of)

Browse Source
This commit is contained in:
Philip C Monk 2015-01-13 20:58:25 -05:00
parent d1b313d514
commit edfaa3ee5d
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
arvo/clay.hoon
View File

@ -730,7 +730,11 @@
q.hic
^- kiss
?: ?=(%soft -.q.hic)
((hard kiss) p.q.hic)
=+ ((soft kiss) p.q.hic)
?~ -
~& [%clay-bad-soft -.p.q.hic]
!!
u.-
?: (~(nest ut -:!>(*kiss)) | p.hic) q.hic
~& [%clay-call-flub (,@tas `*`-.q.hic)]
((hard kiss) q.hic)
@ -770,6 +774,7 @@
:- -.zot
=. une (pish:une q.q.hic +.zot ran.zat)
abet:une(hez.yar ?.(=(%into -.q.hic) hez.yar.une [~ hen]))
~& %intoing
[mos ..^$]
::
?(%ingo %invo) :: not yet used

8
arvo/zuse.hoon
View File

@ -1024,7 +1024,7 @@
^- soba
:- [p.ank p.bus]
%- flop
myz:(change-tree:(zu ank) %c bus)
myz:(change-tree:(zu ank) bus)
::
++ loth
|= pat=(map path ,*)
@ -1892,7 +1892,7 @@
?~(way +> $(way t.way, +> (descend i.way)))
::
++ overwrite :: write over
|= [pum=umph val=(unit ,[p=cash q=cage])]
|= val=(unit ,[p=cash q=cage])
^+ +>
?~ q.ank
?~ val +>
@ -1903,9 +1903,9 @@
(push-change %mut q.u.q.ank q.u.val)
::
++ change-tree :: modify tree
|= [pum=umph bus=ankh]
|= bus=ankh
^+ +>
=. +> (overwrite pum q.bus)
=. +> (overwrite q.bus)
=+ [yeg=(~(tap by r.ank) ~) gey=(~(tap by r.bus) ~)]
=. +>.$
|- ^+ +>.^$