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

remove broken sugar

Browse Source
This commit is contained in:
Philip C Monk 2016-08-10 19:40:39 -04:00
parent daf33b94bc
commit e482fc81be
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
arvo/clay.hoon
View File

@ -232,7 +232,7 @@
^- (unit (unit (each cage lobe))) ^- (unit (unit (each cage lobe)))
=+ ezy=?~(ref ~ (~(get by haw.u.ref) mun)) =+ ezy=?~(ref ~ (~(get by haw.u.ref) mun))
?^ ezy ?^ ezy
`(bind u.ezy (cury same %&)) `(bind u.ezy |=(a/cage [%& a]))
=+ nao=(case-to-aeon:ze q.mun) =+ nao=(case-to-aeon:ze q.mun)
:: ~& [%aver-mun nao [%from syd lim q.mun]] :: ~& [%aver-mun nao [%from syd lim q.mun]]
?~(nao ~ (read-at-aeon:ze u.nao mun)) ?~(nao ~ (read-at-aeon:ze u.nao mun))
@ -1677,7 +1677,7 @@
:- ~ :- ~
%+ bind %+ bind
fil.ank:(descend-path:(zu ank.dom) pax) fil.ank:(descend-path:(zu ank.dom) pax)
(corl (cury same %&) tail) |=(a/{p/lobe q/cage} [%& q.a])
=+ yak=(tako-to-yaki u.tak) =+ yak=(tako-to-yaki u.tak)
=+ lob=(~(get by q.yak) pax) =+ lob=(~(get by q.yak) pax)
?~ lob ?~ lob
@ -1765,7 +1765,7 @@
?: ?=($u p.mun) ?: ?=($u p.mun)
(read-u yon r.mun) (read-u yon r.mun)
?: ?=($v p.mun) ?: ?=($v p.mun)
(bind (read-v yon r.mun) (curr bind (cury same %&))) (bind (read-v yon r.mun) (lift |=(a/cage [%& a])))
?: ?=($x p.mun) ?: ?=($x p.mun)
(read-x yon r.mun) (read-x yon r.mun)
?: ?=($y p.mun) ?: ?=($y p.mun)
@ -1778,16 +1778,16 @@
:: hep=- :: hep=-
:: == :: ==
:: - :: -
(bind (read-y yon r.mun) (curr bind (cury same %&))) (bind (read-y yon r.mun) (lift |=(a/cage [%& a])))
?: ?=($z p.mun) ?: ?=($z p.mun)
(bind (read-z yon r.mun) (curr bind (cury same %&))) (bind (read-z yon r.mun) (lift |=(a/cage [%& a])))
%+ bind %+ bind
(rewind yon) (rewind yon)
|= a/(unit _+>.$) |= a/(unit _+>.$)
^- (unit (each cage lobe)) ^- (unit (each cage lobe))
?~ a ?~ a
~ ~
`(unit (each cage lobe))`(bind (read:u.a mun) (cury same %&)) `(unit (each cage lobe))`(bind (read:u.a mun) |=(a/cage [%& a]))
:: ::
++ rewind :: rewind:ze ++ rewind :: rewind:ze
|= yon/aeon :: rewind to aeon |= yon/aeon :: rewind to aeon