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

replaces all tall cnsg hoons with %#

Browse Source
This commit is contained in:
Joseph Bryan 2018-04-04 14:07:05 -04:00
parent 807652e1ab
commit d6e1e3bc27
5 changed files with 37 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/talk.hoon
View File

@ -2356,10 +2356,9 @@
?: &(?=(^ pre) p.u.pre) q.u.pre ?: &(?=(^ pre) p.u.pre) q.u.pre
?: pat.sep " " ?: pat.sep " "
=- (weld - q:(fall pre [p=| q=" "])) =- (weld - q:(fall pre [p=| q=" "]))
%~ ar-glyf ar %# ar-glyf ar
?: =(who self) aud ?: =(who self) aud
(~(del in aud) [who %inbox]) (~(del in aud) [who %inbox])
==
=/ lis/(list tape) =/ lis/(list tape)
%+ simple-wrap %+ simple-wrap
`tape``(list @)`(tuba (trip msg.sep)) `tape``(list @)`(tuba (trip msg.sep))

16
sys/hoon.hoon
View File

@ -9800,10 +9800,9 @@
~>(%mean.[%leaf "rest-loop"] !!) ~>(%mean.[%leaf "rest-loop"] !!)
=> .(fan (~(gas in fan) leg)) => .(fan (~(gas in fan) leg))
%- fork %- fork
%~ tap in %# tap in
%- ~(gas in *(set type)) %- ~(gas in *(set type))
(turn leg |=({p/type q/hoon} (play(sut p) q))) (turn leg |=({p/type q/hoon} (play(sut p) q)))
==
:: ::
++ take ++ take
|= {vit/vein duz/tyro} |= {vit/vein duz/tyro}
@ -10270,11 +10269,10 @@
:_ q.doy :_ q.doy
:_ p.doy :_ p.doy
%^ cat 3 %^ cat 3
%~ rent co %# rent co
:+ %$ %ud :+ %$ %ud
%- ~(rep by (~(run by q.s.q.sut) |=(tomb ~(wyt by q)))) %- ~(rep by (~(run by q.s.q.sut) |=(tomb ~(wyt by q))))
|=([[@ a=@u] b=@u] (add a b)) |=([[@ a=@u] b=@u] (add a b))
==
%^ cat 3 %^ cat 3
?-(p.q.sut $gold '.', $iron '|', $lead '?', $zinc '&') ?-(p.q.sut $gold '.', $iron '|', $lead '?', $zinc '&')
=+ gum=(mug q.s.q.sut) =+ gum=(mug q.s.q.sut)

31
sys/vane/clay.hoon
View File

@ -2276,11 +2276,10 @@
?: |(?=($~ for) (may-read u.for %z yon pax)) ~ ?: |(?=($~ for) (may-read u.for %z yon pax)) ~
%- malt %- malt
%+ skim %+ skim
%~ tap by %# tap by
=< q =< q
%- aeon-to-yaki %- aeon-to-yaki
yon yon
==
|= {p/path q/lobe} |= {p/path q/lobe}
?| ?=($~ pax) ?| ?=($~ pax)
?& !?=($~ p) ?& !?=($~ p)
@ -3002,12 +3001,11 @@
~ ~
`[pax ~] `[pax ~]
=+ ^= bof =+ ^= bof
%- %~ int by %- %# int by
%- ~(uni by `(map path *)`new.dal.dat) %- ~(uni by `(map path *)`new.dal.dat)
%- ~(uni by `(map path *)`cal.dal.dat) %- ~(uni by `(map path *)`cal.dal.dat)
%- ~(uni by `(map path *)`can.dal.dat) %- ~(uni by `(map path *)`can.dal.dat)
`(map path *)`old.dal.dat `(map path *)`old.dal.dat
==
%- ~(uni by `(map path *)`new.dob.dat) %- ~(uni by `(map path *)`new.dob.dat)
%- ~(uni by `(map path *)`cal.dob.dat) %- ~(uni by `(map path *)`cal.dob.dat)
%- ~(uni by `(map path *)`can.dob.dat) %- ~(uni by `(map path *)`can.dob.dat)
@ -3343,12 +3341,11 @@
=. erg.dat %- ~(uni by del) =. erg.dat %- ~(uni by del)
^- (map path ?) ^- (map path ?)
%. |=(lobe %&) %. |=(lobe %&)
%~ run by %# run by
%- ~(uni by new.dal.dat) %- ~(uni by new.dal.dat)
%- ~(uni by cal.dal.dat) %- ~(uni by cal.dal.dat)
%- ~(uni by cas) %- ~(uni by cas)
hot hot
==
checkout checkout
:: ::
:: Convert new commit into actual data (i.e. blobs rather than lobes). :: Convert new commit into actual data (i.e. blobs rather than lobes).

16
sys/vane/dill.hoon
View File

@ -454,14 +454,14 @@
?. ?=($flow -.kyz) ~ ?. ?=($flow -.kyz) ~
%- some %- some
%. q.kyz %. q.kyz
%~ into as %# into as
:- [~ hen u.ore.all] :- [~ hen u.ore.all]
:* p.kyz :* p.kyz
[~ ~] [~ ~]
80 80
0 0
(tuba "<awaiting {(trip p.kyz)}, this may take a few minutes>") (tuba "<awaiting {(trip p.kyz)}, this may take a few minutes>")
== == ==
-- --
|% :: poke+peek pattern |% :: poke+peek pattern
++ call :: handle request ++ call :: handle request

10
sys/zuse.hoon
View File

@ -4182,11 +4182,11 @@
(weld (trip -.man) `tape`[':' (trip +.man)]) (weld (trip -.man) `tape`[':' (trip +.man)])
:: :: ++clot:en-xml:html :: :: ++clot:en-xml:html
++ clot ~+ :: self-closing tags ++ clot ~+ :: self-closing tags
%~ has in %# has in
%- silt ^- (list term) :~ %- silt ^- (list term) :~
%area %base %br %col %command %embed %hr %img %inputt %area %base %br %col %command %embed %hr %img %inputt
%keygen %link %meta %param %source %track %wbr %keygen %link %meta %param %source %track %wbr
== == ==
-- ::en-xml -- ::en-xml
:: :: ++de-xml:html :: :: ++de-xml:html
++ de-xml :: xml parser ++ de-xml :: xml parser