mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-30 02:12:22 +03:00
boots now (sort of)
This commit is contained in:
parent
d1b313d514
commit
edfaa3ee5d
@ -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
|
||||||
|
@ -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) ~)]
|
||||||
=. +>.$
|
=. +>.$
|
||||||
|- ^+ +>.^$
|
|- ^+ +>.^$
|
||||||
|
Loading…
Reference in New Issue
Block a user