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

Unix sync out.

Browse Source
This commit is contained in:
Jared Hance 2014-07-24 11:47:11 -04:00
parent fb24594e9e
commit bb18c8b086
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
arvo/clay.hoon
View File

@ -221,6 +221,14 @@
(duce hen `rave`[%| ptr q.p.rav]) (duce hen `rave`[%| ptr q.p.rav])
== ==
:: ::
++ echa :: announce raw
|= [hen=duct wen=@da mer=mizu]
^+ +>
%= +>
vag ?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]]))
::yel [[hen %note '=' %leaf ~] yel] :: XX do better
==
::
++ echo :: announce changes ++ echo :: announce changes
|= [hen=duct wen=@da lem=nori] |= [hen=duct wen=@da lem=nori]
^+ +> ^+ +>
@ -252,8 +260,6 @@
|= nak=nako |= nak=nako
~& [%apply-nako let.nak] ~& [%apply-nako let.nak]
~& [%apply-nako-ids gar.nak] ~& [%apply-nako-ids gar.nak]
~& [%apply-nako-yaki lar.nak]
~& [%nako-old-hut hut.ran]
^+ +> ^+ +>
%= +> %= +>
hit.dom (~(uni by hit.dom) gar.nak) hit.dom (~(uni by hit.dom) gar.nak)
@ -277,7 +283,6 @@
++ exem :: execute merge ++ exem :: execute merge
|= [hen=duct wen=@da mer=mizu] :: aka direct change |= [hen=duct wen=@da mer=mizu] :: aka direct change
~& [%apply-mizu-hit q.mer] ~& [%apply-mizu-hit q.mer]
~& [%apply-mizu-hut hut.r.mer]
~& [%apply-mizu-let p.mer] ~& [%apply-mizu-let p.mer]
=. +>.$ %= +>.$ =. +>.$ %= +>.$
ran r.mer ran r.mer
@ -292,7 +297,7 @@
%- ~(get by hit.dom) %- ~(get by hit.dom)
let.dom let.dom
=. ank.dom (~(azel ze lim dom ran) hed) :: real checkout =. ank.dom (~(azel ze lim dom ran) hed) :: real checkout
echo:wake :: notify or w/e (echa:wake hen wen mer) :: notify or w/e
:: ::
++ knit :: external change ++ knit :: external change
|= [inx=@ud rot=riot] |= [inx=@ud rot=riot]
@ -327,7 +332,6 @@
?~ u.nex +>+.^$ :: should never happen ?~ u.nex +>+.^$ :: should never happen
=. +>+.^$ =+ roo=(edis ((hard nako) u.u.nex)) =. +>+.^$ =+ roo=(edis ((hard nako) u.u.nex))
?>(?=(^ ref.roo) roo) ?>(?=(^ ref.roo) roo)
~& [%nako-new-hut hut.ran]
%= $ %= $
haw.u.ref (~(del by haw.u.ref) nez) haw.u.ref (~(del by haw.u.ref) nez)
== ==
@ -556,7 +560,6 @@
:: ::
++ scry :: inspect ++ scry :: inspect
|= [fur=(unit (set monk)) ren=@tas his=ship syd=desk lot=coin tyl=path] |= [fur=(unit (set monk)) ren=@tas his=ship syd=desk lot=coin tyl=path]
~& [%scry [his syd] tyl]
^- (unit (unit (pair mark ,*))) ^- (unit (unit (pair mark ,*)))
=+ got=(~(has by fat.ruf) his) =+ got=(~(has by fat.ruf) his)
=+ luk=?.(?=(%$ -.lot) ~ ((soft case) p.lot)) =+ luk=?.(?=(%$ -.lot) ~ ((soft case) p.lot))

2
arvo/zuse.hoon
View File

@ -1063,8 +1063,6 @@
^- (unit ,@ud) ^- (unit ,@ud)
?- -.lok ?- -.lok
%da %da
~& [%let let]
~& [%hit hit]
?: (gth p.lok lim) ~ ?: (gth p.lok lim) ~
|- ^- (unit ,@ud) |- ^- (unit ,@ud)
?: =(0 let) [~ 0] :: avoid underflow ?: =(0 let) [~ 0] :: avoid underflow