ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-20 21:31:32 +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 q.hic
^- kiss ^- kiss
?: ?=(%soft -.q.hic) ?: ?=(%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 ?: (~(nest ut -:!>(*kiss)) | p.hic) q.hic
~& [%clay-call-flub (,@tas `*`-.q.hic)] ~& [%clay-call-flub (,@tas `*`-.q.hic)]
((hard kiss) q.hic) ((hard kiss) q.hic)
@ -770,6 +774,7 @@
:- -.zot :- -.zot
=. une (pish:une q.q.hic +.zot ran.zat) =. une (pish:une q.q.hic +.zot ran.zat)
abet:une(hez.yar ?.(=(%into -.q.hic) hez.yar.une [~ hen])) abet:une(hez.yar ?.(=(%into -.q.hic) hez.yar.une [~ hen]))
~& %intoing
[mos ..^$] [mos ..^$]
:: ::
?(%ingo %invo) :: not yet used ?(%ingo %invo) :: not yet used

8
arvo/zuse.hoon
View File

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