urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 05:26:56 +03:00
Code Issues Packages Projects Releases Wiki Activity

Completed syntax adaptation of main code path.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-12-14 14:46:44 -08:00
parent c57a7615dd
commit b3a08a9fb3
16 changed files with 222 additions and 221 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ape/dojo.hoon
View File

@ -625,13 +625,13 @@
=. +>+>.$ (he-diff %tan tan) =. +>+>.$ (he-diff %tan tan)
=+ vax=(spec (slot 3 q.cag)) =+ vax=(spec (slot 3 q.cag))
?+ -.q.vax !! ?+ -.q.vax !!
{$&} $&
?~ +.q.vax ?~ +.q.vax
~& %dy-made-dial-abort ~& %dy-made-dial-abort
(dy-rash %bel ~) (dy-rash %bel ~)
(dy-meal (slot 7 vax)) (dy-meal (slot 7 vax))
:: ::
{$|} $|
=< he-pone =< he-pone
%- dy-diff(pro `(slap (slot 7 vax) [%cnzy %q])) %- dy-diff(pro `(slap (slot 7 vax) [%cnzy %q]))
=+ pom=(sole-prompt +<.q.vax) =+ pom=(sole-prompt +<.q.vax)
@ -648,13 +648,13 @@
=+ vax=(spec (slot 3 q.cag)) =+ vax=(spec (slot 3 q.cag))
~_ (sell q.cag) ~_ (sell q.cag)
?+ -.q.vax !! ?+ -.q.vax !!
{$&} $&
?~ +.q.vax ?~ +.q.vax
~& %dy-made-scar-abort ~& %dy-made-scar-abort
(dy-rash %bel ~) (dy-rash %bel ~)
(dy-meal (slot 7 vax)) (dy-meal (slot 7 vax))
:: ::
{$|} $|
=+ hiz=;;(hiss +<.q.vax) =+ hiz=;;(hiss +<.q.vax)
=. ..dy (he-diff %tan leaf/"< {(earn p.hiz)}" ~) =. ..dy (he-diff %tan leaf/"< {(earn p.hiz)}" ~)
(dy-eyre(pro `(slap (slot 7 vax) cnzy/%q)) /scar hiz) (dy-eyre(pro `(slap (slot 7 vax) cnzy/%q)) /scar hiz)
@ -759,8 +759,8 @@
^- (each (unit (each dojo-command tape)) @ud) ^- (each (unit (each dojo-command tape)) @ud)
=+ foy=(he-dope txt) =+ foy=(he-dope txt)
?- -.foy ?- -.foy
{$|} [%| q.p.foy] $| [%| q.p.foy]
{$&} [%& p.foy] $& [%& p.foy]
== ==
:: ::
++ he-easter :: hint messages ++ he-easter :: hint messages
@ -842,7 +842,7 @@
?> ?=(^ poy) ?> ?=(^ poy)
=< he-pine =< he-pine
?- -.reg ?- -.reg
{$&} %. p.reg $& %. p.reg
=+ dye=~(. dy u.poy(pux ~)) =+ dye=~(. dy u.poy(pux ~))
?+ way !! ?+ way !!
{$hand $~} dy-hand:dye {$hand $~} dy-hand:dye
@ -851,7 +851,7 @@
{$scar $~} dy-made-scar:dye {$scar $~} dy-made-scar:dye
{$edit $~} dy-made-edit:dye {$edit $~} dy-made-edit:dye
== ==
{$|} (he-diff(poy ~) %tan p.reg) $| (he-diff(poy ~) %tan p.reg)
$tabl !! $tabl !!
== ==
:: ::
@ -917,16 +917,16 @@
== ==
=+ doy=(he-duke txt) =+ doy=(he-duke txt)
?- -.doy ?- -.doy
{$|} (he-diff [%err p.doy]) $| (he-diff [%err p.doy])
{$&} $&
?~ p.doy ?~ p.doy
(he-diff [%err (lent txt)]) (he-diff [%err (lent txt)])
=+ old=(weld ?~(buf "> " " ") (tufa buf.say)) =+ old=(weld ?~(buf "> " " ") (tufa buf.say))
=^ cal say (~(transmit sole say) [%set ~]) =^ cal say (~(transmit sole say) [%set ~])
=. +>.$ (he-diff %mor txt/old nex/~ det/cal ~) =. +>.$ (he-diff %mor txt/old nex/~ det/cal ~)
?- -.u.p.doy ?- -.u.p.doy
{$&} (he-plan(buf ~) p.u.p.doy) $& (he-plan(buf ~) p.u.p.doy)
{$|} he-prom(buf p.u.p.doy) $| he-prom(buf p.u.p.doy)
== ==
== ==
:: ::

32
ape/talk.hoon
View File

@ -182,8 +182,8 @@
^- (set partner) ^- (set partner)
?~ a ~ ?~ a ~
?- -.i.a ?- -.i.a
{$&} (~(put in $(a t.a)) p.i.a) $& (~(put in $(a t.a)) p.i.a)
{$|} (~(uni in $(a t.a)) p.i.a) $| (~(uni in $(a t.a)) p.i.a)
== ==
:: ::
++ para :: partners alias ++ para :: partners alias
@ -1420,7 +1420,7 @@
^+ +> ^+ +>
:: ~& [%ra-conduct pub her tay] :: ~& [%ra-conduct pub her tay]
?- -.tay ?- -.tay
{$&} ?: pub $& ?: pub
=. her our.hid :: XX security! =. her our.hid :: XX security!
?: =(her p.p.tay) ?: =(her p.p.tay)
(ra-record q.p.tay p.p.tay tip) (ra-record q.p.tay p.p.tay tip)
@ -1428,7 +1428,7 @@
?. =(our.hid p.p.tay) ?. =(our.hid p.p.tay)
+> +>
(ra-record q.p.tay her tip) (ra-record q.p.tay her tip)
{$|} !! $| !!
== ==
:: ::
++ ra-record :: add to story ++ ra-record :: add to story
@ -1560,10 +1560,10 @@
|= tay+partner |= tay+partner
^- (list card) ^- (list card)
?- -.tay ?- -.tay
{$|} ~& tweet-abjure/p.p.tay $| ~& tweet-abjure/p.p.tay
!! !!
:: ::
{$&} ~& [%pa-abjure [our.hid man] [p.p.tay q.p.tay]] $& ~& [%pa-abjure [our.hid man] [p.p.tay q.p.tay]]
:_ ~ :_ ~
:* %pull :* %pull
/friend/show/[man]/(scot %p p.p.tay)/[q.p.tay] /friend/show/[man]/(scot %p p.p.tay)/[q.p.tay]
@ -1582,8 +1582,8 @@
:: =+ num=(fall (~(get by sequence) tay) 0) :: XX unused :: =+ num=(fall (~(get by sequence) tay) 0) :: XX unused
=+ old=(sub now.hid ~d1) =+ old=(sub now.hid ~d1)
?- -.tay ?- -.tay
{$|} !! $| !!
{$&} :: ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]] $& :: ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]]
:_ ~ :_ ~
:* %peer :* %peer
/friend/show/[man]/(scot %p p.p.tay)/[q.p.tay] /friend/show/[man]/(scot %p p.p.tay)/[q.p.tay]
@ -1832,16 +1832,16 @@
++ ta-beat :: more relevant ++ ta-beat :: more relevant
|= two+partner ^- ? |= two+partner ^- ?
?- -.one ?- -.one
{$&} $&
?- -.two ?- -.two
{$|} %& $| %&
{$&} (~(sn-best sn man p.one) p.two) $& (~(sn-best sn man p.one) p.two)
== ==
:: ::
{$|} $|
?- -.two ?- -.two
{$&} %| $& %|
{$|} ?: =(-.p.two -.p.one) $| ?: =(-.p.two -.p.one)
(lth (mug +.p.one) (mug +.p.two)) (lth (mug +.p.one) (mug +.p.two))
(lth -.p.two -.p.one) (lth -.p.two -.p.one)
== ==
@ -1854,14 +1854,14 @@
|= moy+(unit ?) |= moy+(unit ?)
^- tape ^- tape
?- -.one ?- -.one
{$&} $&
?~ moy ?~ moy
=+ cha=(~(get by nik) one ~ ~) =+ cha=(~(get by nik) one ~ ~)
=- ?~(cha - "'{u.cha ~}' {-}") =- ?~(cha - "'{u.cha ~}' {-}")
~(sn-phat sn man p.one) ~(sn-phat sn man p.one)
(~(sn-curt sn man p.one) u.moy) (~(sn-curt sn man p.one) u.moy)
:: ::
{$|} $|
=+ ^= pre ^- tape =+ ^= pre ^- tape
?- -.p.one ?- -.p.one
$twitter "@t:" $twitter "@t:"

20
arvo/clay.hoon
View File

@ -257,8 +257,8 @@
(ford-fail ?-(-.key $| p.key, $tabl [>%strange-gage<]~)) (ford-fail ?-(-.key $| p.key, $tabl [>%strange-gage<]~))
?- -.val ?- -.val
$tabl (ford-fail >%strange-gage< ~) $tabl (ford-fail >%strange-gage< ~)
{$&} (some [p.key p.val]) $& (some [p.key p.val])
{$|} =. p.val [(sell q.p.key) p.val] $| =. p.val [(sell q.p.key) p.val]
~> %slog.[0 %*(. >%ford-fail syd %her %why< |2.+> p.val)] ~> %slog.[0 %*(. >%ford-fail syd %her %why< |2.+> p.val)]
~ ~
== ==
@ -275,11 +275,11 @@
=* hed i.p.gag =* hed i.p.gag
?- -.p.hed ?- -.p.hed
$tabl (mule |.(`$~`(ford-fail >%strange-gage< ~))) $tabl (mule |.(`$~`(ford-fail >%strange-gage< ~)))
{$|} (mule |.(`$~`(ford-fail p.p.hed))) $| (mule |.(`$~`(ford-fail p.p.hed)))
{$&} ?- -.q.hed $& ?- -.q.hed
$tabl (mule |.(`$~`(ford-fail >%strange-gage< ~))) $tabl (mule |.(`$~`(ford-fail >%strange-gage< ~)))
{$|} (mule |.(`$~`(ford-fail p.q.hed))) $| (mule |.(`$~`(ford-fail p.q.hed)))
{$&} =+ $(p.gag t.p.gag) $& =+ $(p.gag t.p.gag)
?+(- [[p.p p.q]:hed -] {@ *} -) ?+(- [[p.p p.q]:hed -] {@ *} -)
== == == ==
:: ::
@ -477,8 +477,8 @@
^+ +> ^+ +>
=+ pre=`path`~[(scot %p her) syd (scot %ud let.dom)] =+ pre=`path`~[(scot %p her) syd (scot %ud let.dom)]
?- -.lem ?- -.lem
{$|} (print-to-dill '=' %leaf :(weld (trip p.lem) " " (spud pre))) $| (print-to-dill '=' %leaf :(weld (trip p.lem) " " (spud pre)))
{$&} |- ^+ +>.^$ $& |- ^+ +>.^$
?~ p.lem +>.^$ ?~ p.lem +>.^$
=. +>.^$ =. +>.^$
%+ print-to-dill %+ print-to-dill
@ -1432,7 +1432,7 @@
|= {wen+@da lem+nuri} :: edit |= {wen+@da lem+nuri} :: edit
^- {(unit (map path lobe)) _..ze} ^- {(unit (map path lobe)) _..ze}
?- -.lem ?- -.lem
{$&} $&
=^ yak lat.ran :: merge objects =^ yak lat.ran :: merge objects
%+ forge-yaki wen %+ forge-yaki wen
?: =(let.dom 0) :: initial import ?: =(let.dom 0) :: initial import
@ -1449,7 +1449,7 @@
== ==
[`q.yak ..ze] [`q.yak ..ze]
:: +>.$(ank (checkout-ankh q.yak)) :: +>.$(ank (checkout-ankh q.yak))
{$|} $|
?< (~(has by lab.dom) p.lem) ?< (~(has by lab.dom) p.lem)
[~ ..ze(lab.dom (~(put by lab.dom) p.lem let.dom))] [~ ..ze(lab.dom (~(put by lab.dom) p.lem let.dom))]
== ==

4
arvo/dill.hoon
View File

@ -298,8 +298,8 @@
{$g $onto *} {$g $onto *}
:: ~& [%take-gall-onto +>.sih] :: ~& [%take-gall-onto +>.sih]
?- -.+>.sih ?- -.+>.sih
{$|} (crud %onto p.p.+>.sih) $| (crud %onto p.p.+>.sih)
{$&} (done %blit [%lin (tuba "{<p.p.sih>}")]~) $& (done %blit [%lin (tuba "{<p.p.sih>}")]~)
== ==
:: ::
{$g $unto *} {$g $unto *}

8
arvo/eyre.hoon
View File

@ -576,8 +576,8 @@
=+ maf=(eat-headers r.heq) =+ maf=(eat-headers r.heq)
=+ ^= pul ^- purl =+ ^= pul ^- purl
?- -.ryp ?- -.ryp
{$&} ?>(=(sec p.p.p.ryp) p.ryp) $& ?>(=(sec p.p.p.ryp) p.ryp)
{$|} =+ hot=(~(get ja maf) %host) $| =+ hot=(~(get ja maf) %host)
?> ?=({@ $~} hot) ?> ?=({@ $~} hot)
[[sec (rash i.hot thor:epur)] p.ryp q.ryp] [[sec (rash i.hot thor:epur)] p.ryp q.ryp]
== ==
@ -744,8 +744,8 @@
|= {sus+(each duct ixor) con+_..axon} |= {sus+(each duct ixor) con+_..axon}
=. ..axon con =. ..axon con
?- -.sus ?- -.sus
{$&} (give-json(hen p.sus) 205 ~ %b &) $& (give-json(hen p.sus) 205 ~ %b &)
{$|} (get-even:(ire-ix p.sus) +.sih) $| (get-even:(ire-ix p.sus) +.sih)
== ==
:: ::
$made $made

28
arvo/ford.hoon
View File

@ -113,8 +113,8 @@
|= {a+cafe b+gage} ^- (bolt cage) |= {a+cafe b+gage} ^- (bolt cage)
?- -.b ?- -.b
$tabl (flaw a >%bad-marc< ~) $tabl (flaw a >%bad-marc< ~)
{$|} (flaw a p.b) $| (flaw a p.b)
{$&} (fine a p.b) $& (fine a p.b)
== ==
:: ::
++ fret :: lift error ++ fret :: lift error
@ -430,12 +430,12 @@
$0 [%0 p=*(set beam) q=(fun p.ton)] $0 [%0 p=*(set beam) q=(fun p.ton)]
$1 :: ~& [%coup-need ((list path) p.ton)] $1 :: ~& [%coup-need ((list path) p.ton)]
=- ?- -.faw =- ?- -.faw
{$&} :- %1 $& :- %1
^= p ^= p
%- sa %- sa
%+ turn p.faw %+ turn p.faw
|=(a+{care beam} [-.a +.a *tang]) |=(a+{care beam} [-.a +.a *tang])
{$|} [%2 p=*(set beam) q=p.faw] $| [%2 p=*(set beam) q=p.faw]
== ==
^= faw ^= faw
|- ^- (each (list (pair care beam)) tang) |- ^- (each (list (pair care beam)) tang)
@ -453,8 +453,8 @@
?~ zis ?~ zis
(err "blocking not beam") (err "blocking not beam")
?- -.nex ?- -.nex
{$&} [%& [u.ren u.zis] p.nex] $& [%& [u.ren u.zis] p.nex]
{$|} nex $| nex
== ==
== ==
:: ::
@ -463,8 +463,8 @@
|* {tod+(each * tang) fun+$+(* *)} |* {tod+(each * tang) fun+$+(* *)}
%+ (coup cof) %+ (coup cof)
?- -.tod ?- -.tod
{$&} [%0 p=p.tod] $& [%0 p=p.tod]
{$|} [%2 p=p.tod] $| [%2 p=p.tod]
== ==
fun fun
:: ::
@ -1249,8 +1249,8 @@
|= {cof+cafe sut+type gen+twig} |= {cof+cafe sut+type gen+twig}
=+ puz=(mule |.((~(mint ut sut) [%noun gen]))) =+ puz=(mule |.((~(mint ut sut) [%noun gen])))
?- -.puz ?- -.puz
{$|} (flaw cof p.puz) $| (flaw cof p.puz)
{$&} (fine cof p.puz) $& (fine cof p.puz)
== ==
:: ::
++ maim :: slap ++ maim :: slap
@ -1442,8 +1442,8 @@
%+ cool |.(%.(%want ~(dunk ut (~(peek ut gat) %free 6)))) %+ cool |.(%.(%want ~(dunk ut (~(peek ut gat) %free 6))))
=+ top=(mule |.((slit gat sam))) =+ top=(mule |.((slit gat sam)))
?- -.top ?- -.top
{$|} (flaw cof p.top) $| (flaw cof p.top)
{$&} (fine cof p.top) $& (fine cof p.top)
== ==
:: ::
++ maul :: slam ++ maul :: slam
@ -1721,8 +1721,8 @@
|= {cof+cafe hop+hoop} |= {cof+cafe hop+hoop}
^- (bolt _..wilt) ^- (bolt _..wilt)
?- -.hop ?- -.hop
{$&} (fine cof ..wilt(boy [p.hop boy])) $& (fine cof ..wilt(boy [p.hop boy]))
{$|} $|
=. r.p.hop ?:(?=({$ud $0} r.p.hop) r.how r.p.hop) =. r.p.hop ?:(?=({$ud $0} r.p.hop) r.how r.p.hop)
%+ cool |.(leaf/"ford: wilt {<[(tope p.hop)]>}") %+ cool |.(leaf/"ford: wilt {<[(tope p.hop)]>}")
%+ cope (lend cof p.hop) %+ cope (lend cof p.hop)

28
arvo/gall.hoon
View File

@ -147,11 +147,11 @@
^+ +> ^+ +>
?- -.gux ?- -.gux
$tabl ~|(%made-tabl !!) $tabl ~|(%made-tabl !!)
{$|} $|
=. +> (mo-bold byk dap dep) =. +> (mo-bold byk dap dep)
=. +> (mo-give %onto %| p.gux) =. +> (mo-give %onto %| p.gux)
+> +>
{$&} $&
?> ?=(@ p.p.gux) ?> ?=(@ p.p.gux)
?. (mo-okay q.p.gux) ?. (mo-okay q.p.gux)
(mo-give %onto %| [%leaf "{<dap>}: bogus core"]~) (mo-give %onto %| [%leaf "{<dap>}: bogus core"]~)
@ -193,8 +193,8 @@
=. +>.$ (mo-bold byk dap dep) =. +>.$ (mo-bold byk dap dep)
?- -.gux ?- -.gux
$tabl ~|(%made-tabl !!) $tabl ~|(%made-tabl !!)
{$|} (mo-give %onto %| p.gux) $| (mo-give %onto %| p.gux)
{$&} ?> ?=(@ p.p.gux) $& ?> ?=(@ p.p.gux)
ap-abet:(ap-peep:(ap-abed:ap dap [%high [~ our]]) q.p.gux) ap-abet:(ap-peep:(ap-abed:ap dap [%high [~ our]]) q.p.gux)
== ==
:: ::
@ -328,8 +328,8 @@
?> ?=({$f $made *} sih) ?> ?=({$f $made *} sih)
?- -.q.+.sih ?- -.q.+.sih
$tabl ~|(%made-tabl !!) $tabl ~|(%made-tabl !!)
{$&} (mo-give %unto %diff p.q.+>.sih) $& (mo-give %unto %diff p.q.+>.sih)
{$|} =. p.q.+>.sih (turn p.q.+>.sih |=(a+tank rose/[~ "! " ~]^[a]~)) $| =. p.q.+>.sih (turn p.q.+>.sih |=(a+tank rose/[~ "! " ~]^[a]~))
~> %slog.`%*(. >[%wh %y]< +> [>%mo-cyst-fail< (flop p.q.+>.sih)]) ~> %slog.`%*(. >[%wh %y]< +> [>%mo-cyst-fail< (flop p.q.+>.sih)])
(mo-give %unto %quit ~) :: XX better errors pls (mo-give %unto %quit ~) :: XX better errors pls
== ==
@ -359,8 +359,8 @@
== ==
?- -.q.+>.sih ?- -.q.+>.sih
$tabl ~|(%made-tabl !!) $tabl ~|(%made-tabl !!)
{$|} (mo-give %mack `p.q.+>.sih) :: XX should crash $| (mo-give %mack `p.q.+>.sih) :: XX should crash
{$&} =. +>.$ (mo-give %mack ~) :: XX pump should ack $& =. +>.$ (mo-give %mack ~) :: XX pump should ack
(mo-give(hen (mo-ball him num)) %unto %diff `cage`p.q.+>.sih) (mo-give(hen (mo-ball him num)) %unto %diff `cage`p.q.+>.sih)
== ==
:: ::
@ -373,8 +373,8 @@
?: ?=({$f $made *} sih) ?: ?=({$f $made *} sih)
?- -.q.+>.sih ?- -.q.+>.sih
$tabl ~|(%made-tabl !!) $tabl ~|(%made-tabl !!)
{$|} (mo-give %mack `p.q.+>.sih) :: XX should crash $| (mo-give %mack `p.q.+>.sih) :: XX should crash
{$&} (mo-pass [%sys pax] %g %deal [him our] i.t.t.pax %poke p.q.+>.sih) $& (mo-pass [%sys pax] %g %deal [him our] i.t.t.pax %poke p.q.+>.sih)
== ==
?: ?=({$a $woot *} sih) +>.$ :: quit ack, boring ?: ?=({$a $woot *} sih) +>.$ :: quit ack, boring
?> ?=({$g $unto *} sih) ?> ?=({$g $unto *} sih)
@ -395,8 +395,8 @@
?> ?=({$f $made *} sih) ?> ?=({$f $made *} sih)
?- -.q.+>.sih ?- -.q.+>.sih
$tabl !! $tabl !!
{$|} (mo-give %unto %coup `p.q.+>.sih) :: XX invalid, crash $| (mo-give %unto %coup `p.q.+>.sih) :: XX invalid, crash
{$&} (mo-clip dap `prey`[%high ~ him] %poke p.q.sih) $& (mo-clip dap `prey`[%high ~ him] %poke p.q.sih)
== ==
:: ::
$way :: outbound request $way :: outbound request
@ -438,8 +438,8 @@
$out ?: ?=({$f $made *} q.hin) $out ?: ?=({$f $made *} q.hin)
?- -.q.+>.q.hin ?- -.q.+>.q.hin
$tabl ~|(%made-tabl !!) $tabl ~|(%made-tabl !!)
{$&} ap-abet:(ap-pout:pap t.t.t.pax %diff +.q.+>.q.hin) $& ap-abet:(ap-pout:pap t.t.t.pax %diff +.q.+>.q.hin)
{$|} $|
=+ why=p.q.+>.q.hin =+ why=p.q.+>.q.hin
=. why (turn why |=(a+tank rose/[~ "! " ~]^[a]~)) =. why (turn why |=(a+tank rose/[~ "! " ~]^[a]~))
~> %slog.`rose/[" " "[" "]"]^[>%mo-cook-fail< (flop why)] ~> %slog.`rose/[" " "[" "]"]^[>%mo-cook-fail< (flop why)]

62
arvo/hoon.hoon
View File

@ -4701,7 +4701,7 @@
|* taq+_|.(**) |* taq+_|.(**)
=+ mud=(mute taq) =+ mud=(mute taq)
?- -.mud ?- -.mud
{$&} [%& p=$:taq] :: XX transition $& [%& p=$:taq] :: XX transition
$| [%| p=p.mud] $| [%| p=p.mud]
== ==
:: ::
@ -4724,8 +4724,8 @@
?~ bur ~ ?~ bur ~
:_ $(bur t.bur) :_ $(bur t.bur)
?- -.i.bur ?- -.i.bur
{$&} i.bur $& i.bur
{$|} [%| q.i.bur p.i.bur] $| [%| q.i.bur p.i.bur]
== ==
:: ::
++ diff :: generate patch ++ diff :: generate patch
@ -4879,14 +4879,14 @@
|- ^+ hel |- ^+ hel
?~ rug (flop war) ?~ rug (flop war)
?- -.i.rug ?- -.i.rug
{$&} $&
%= $ %= $
rug t.rug rug t.rug
hel (slag p.i.rug hel) hel (slag p.i.rug hel)
war (weld (flop (scag p.i.rug hel)) war) war (weld (flop (scag p.i.rug hel)) war)
== ==
:: ::
{$|} $|
%= $ %= $
rug t.rug rug t.rug
hel =+ gur=(flop p.i.rug) hel =+ gur=(flop p.i.rug)
@ -4911,12 +4911,12 @@
^+ rag ^+ rag
?- -.p.rag ?- -.p.rag
$| ?- -.new $| ?- -.new
{$|} [[%| (weld p.new p.p.rag) (weld q.new q.p.rag)] q.rag] $| [[%| (weld p.new p.p.rag) (weld q.new q.p.rag)] q.rag]
{$&} [new [p.rag q.rag]] $& [new [p.rag q.rag]]
== ==
$& ?- -.new $& ?- -.new
{$|} [new ?:(=(0 p.p.rag) q.rag [p.rag q.rag])] $| [new ?:(=(0 p.p.rag) q.rag [p.rag q.rag])]
{$&} [[%& (add p.p.rag p.new)] q.rag] $& [[%& (add p.p.rag p.new)] q.rag]
== ==
== ==
:: ::
@ -6305,8 +6305,8 @@
^- {p+axis q+type} ^- {p+axis q+type}
:- p.pok :- p.pok
?- -.q.pok ?- -.q.pok
{$&} p.q.pok $& p.q.pok
{$|} (roll q.q.pok =+([p=[p=*type q=*foot] q=`type`%void] |.((fork p.p q)))) $| (roll q.q.pok =+([p=[p=*type q=*foot] q=`type`%void] |.((fork p.p q))))
== ==
:: ::
++ flee ++ flee
@ -6323,8 +6323,8 @@
|= pok+port |= pok+port
^- prop ^- prop
?- -.q.pok ?- -.q.pok
{$&} [p.pok [~ [[p.q.pok [%elm ~ 1]] ~]]] $& [p.pok [~ [[p.q.pok [%elm ~ 1]] ~]]]
{$|} [p.pok [p.q.pok q.q.pok]] $| [p.pok [p.q.pok q.q.pok]]
== ==
:: ::
++ fork :: make %fork type ++ fork :: make %fork type
@ -6726,15 +6726,15 @@
|= gen+twig |= gen+twig
^- twig ^- twig
?- -.tig ?- -.tig
{$&} ?~(p.tig gen [%tstr u.p.tig q.tig gen]) $& ?~(p.tig gen [%tstr u.p.tig q.tig gen])
{$|} [%tsls ?~(p.tig q.tig [%ktts u.p.tig q.tig]) gen] $| [%tsls ?~(p.tig q.tig [%ktts u.p.tig q.tig]) gen]
== ==
:: ::
++ puce ++ puce
^- wing ^- wing
?- -.tig ?- -.tig
{$&} ?~(p.tig q.tig [u.p.tig ~]) $& ?~(p.tig q.tig [u.p.tig ~])
{$|} [[%& 2] ~] $| [[%& 2] ~]
== ==
:: ::
++ wthp |= opt+tine ++ wthp |= opt+tine
@ -6919,8 +6919,8 @@
:: ::
{$reed *} {$reed *}
?- nag ?- nag
{$&} [%wtpt [[%& axe] ~] $(sec p.sec, nag |) $(sec q.sec, nag [& &])] $& [%wtpt [[%& axe] ~] $(sec p.sec, nag |) $(sec q.sec, nag [& &])]
{$|} $(sec p.sec) $| $(sec p.sec)
^ $(sec q.sec) ^ $(sec q.sec)
* !! * !!
== ==
@ -7495,15 +7495,15 @@
=> .(i.peh ?^(i.peh i.peh [%| p=0 q=i.peh])) => .(i.peh ?^(i.peh i.peh [%| p=0 q=i.peh]))
=+ ^= poz ^- post =+ ^= poz ^- post
?- -.i.peh ?- -.i.peh
{$&} [p.i.peh %& (peek %both p.i.peh)] $& [p.i.peh %& (peek %both p.i.peh)]
{$|} (finq p.i.peh %both q.i.peh) $| (finq p.i.peh %both q.i.peh)
== ==
|- ^- type |- ^- type
?: =(1 p.poz) ?: =(1 p.poz)
?- -.q.poz ?- -.q.poz
$0 ?- -.i.peh $0 ?- -.i.peh
{$&} ^$(peh t.peh) $& ^$(peh t.peh)
{$|} (face q.i.peh ^$(peh t.peh, sut p.q.poz)) $| (face q.i.peh ^$(peh t.peh, sut p.q.poz))
== ==
$1 ^$(peh t.peh) $1 ^$(peh t.peh)
$2 %+ bull $2 %+ bull
@ -8932,8 +8932,8 @@
=+ zar=$(hyp t.hyp) =+ zar=$(hyp t.hyp)
=+ ^= syp =+ ^= syp
?- -.q.zar ?- -.q.zar
{$&} p.q.zar $& p.q.zar
{$|} (fire (turn q.q.zar |=({p+type q+foot} [p [%ash ~ 1]]))) $| (fire (turn q.q.zar |=({p+type q+foot} [p [%ash ~ 1]])))
== ==
?- i.hyp ?- i.hyp
{$& *} {$& *}
@ -10412,8 +10412,8 @@
|= hil+mill |= hil+mill
^- mill ^- mill
?- -.hil ?- -.hil
{$&} [%& (slop [typ.vil p.p.hil] p.hil)] $& [%& (slop [typ.vil p.p.hil] p.hil)]
{$|} [%| [%cell typ.vil p.p.hil] p.hil] $| [%| [%cell typ.vil p.p.hil] p.hil]
== ==
:: ::
++ slur :: call gate on ++ slur :: call gate on
@ -10422,8 +10422,8 @@
=+ sam=(slot 6 gat) =+ sam=(slot 6 gat)
=+ ^= hig =+ ^= hig
?- -.hil ?- -.hil
{$&} (~(nest wa p.sew) p.sam p.p.hil) $& (~(nest wa p.sew) p.sam p.p.hil)
{$|} (~(nets wa p.sew) p.sam p.p.hil) $| (~(nets wa p.sew) p.sam p.p.hil)
== ==
?.(-.hig ~ `[(slym gat +>.hil) +.hig]) ?.(-.hig ~ `[(slym gat +>.hil) +.hig])
:: ::
@ -10479,8 +10479,8 @@
|= a+duct |= a+duct
%- bind :_ |=(b+(pair arvo worm) [`move`[a p.b] q.b]) %- bind :_ |=(b+(pair arvo worm) [`move`[a p.b] q.b])
=- ?- -.har =- ?- -.har
{$|} ~& [%dead-card p.har] ~ :: XX properly log? $| ~& [%dead-card p.har] ~ :: XX properly log?
{$&} (some p.har) $& (some p.har)
== ==
^= har ^- (each (pair arvo worm) term) ^= har ^- (each (pair arvo worm) term)
=^ caq p.sew (~(spot wa p.sew) 3 wec) =^ caq p.sew (~(spot wa p.sew) 3 wec)

8
arvo/zuse.hoon
View File

@ -1256,8 +1256,8 @@
++ apex ++ apex
|= qur+quri |= qur+quri
?- -.qur ?- -.qur
{$&} (weld (head p.p.qur) `tape`['/' $(qur [%| +.p.qur])]) $& (weld (head p.p.qur) `tape`['/' $(qur [%| +.p.qur])])
{$|} (weld (body p.qur) (tail q.qur)) $| (weld (body p.qur) (tail q.qur))
== ==
:: ::
++ body ++ body
@ -1276,8 +1276,8 @@
?:(&(p.har !?=(hoke r.har)) "https://" "http://") ?:(&(p.har !?=(hoke r.har)) "https://" "http://")
:: ::
?- -.r.har ?- -.r.har
{$|} (trip (rsh 3 1 (scot %if p.r.har))) $| (trip (rsh 3 1 (scot %if p.r.har)))
{$&} =+ rit=(flop p.r.har) $& =+ rit=(flop p.r.har)
|- ^- tape |- ^- tape
?~(rit ~ (weld (trip i.rit) ?~(t.rit "" `tape`['.' $(rit t.rit)]))) ?~(rit ~ (weld (trip i.rit) ?~(t.rit "" `tape`['.' $(rit t.rit)])))
== ==

4
lib/down-jet/parse.hoon
View File

@ -162,8 +162,8 @@
|= a+$^({marx $~} $%({$& marx} {$| p+mane})) |= a+$^({marx $~} $%({$& marx} {$| p+mane}))
?- -.a ?- -.a
^ (madn n.a) ^ (madn n.a)
{$&} (madn n.a) $& (madn n.a)
{$|} (madn p.a) $| (madn p.a)
== ==
:: ::
++ line ++ line

4
lib/drum.hoon
View File

@ -210,8 +210,8 @@
?> (~(has by fur) i.t.way) ?> (~(has by fur) i.t.way)
=+ wel=`well`[i.way i.t.way] =+ wel=`well`[i.way i.t.way]
?- -.saw ?- -.saw
{$|} (se-dump p.saw) $| (se-dump p.saw)
{$&} ?> =(q.wel p.p.saw) $& ?> =(q.wel p.p.saw)
:: =. +>.$ (se-text "live {<p.saw>}") :: =. +>.$ (se-text "live {<p.saw>}")
+>.$(fur (~(put by fur) q.wel `[p.wel %da r.p.saw])) +>.$(fur (~(put by fur) q.wel `[p.wel %da r.p.saw]))
== ==

4
lib/helm.hoon
View File

@ -178,8 +178,8 @@
|= saw+(each suss tang) =< abet |= saw+(each suss tang) =< abet
%- emit %- emit
?- -.saw ?- -.saw
{$|} [%flog ~ %crud %onto `tang`p.saw] $| [%flog ~ %crud %onto `tang`p.saw]
{$&} [%flog ~ %text "<{<p.saw>}>"] $& [%flog ~ %text "<{<p.saw>}>"]
== ==
:: ::
++ take-note :: result of %init ++ take-note :: result of %init

10
lib/kiln.hoon
View File

@ -365,13 +365,13 @@
?~ p.gag ~ ?~ p.gag ~
=* hed i.p.gag =* hed i.p.gag
?- -.p.hed ?- -.p.hed
{$tabl} (mule |.(`$~`(ford-fail >%strange-gage< ~))) $tabl (mule |.(`$~`(ford-fail >%strange-gage< ~)))
{$|} (mule |.(`$~`(ford-fail p.p.hed))) $| (mule |.(`$~`(ford-fail p.p.hed)))
{$&} $&
?- -.q.hed ?- -.q.hed
$tabl (mule |.(`$~`(ford-fail >%strange-gage< ~))) $tabl (mule |.(`$~`(ford-fail >%strange-gage< ~)))
{$|} (mule |.(`$~`(ford-fail p.q.hed))) $| (mule |.(`$~`(ford-fail p.q.hed)))
{$&} =+ $(p.gag t.p.gag) $& =+ $(p.gag t.p.gag)
?+(- [[p.p p.q]:hed -] {@ *} -) ?+(- [[p.p p.q]:hed -] {@ *} -)
== ==
== ==

4
mar/talk/report.hoon
View File

@ -72,8 +72,8 @@
++ parn ++ parn
|= a+partner ^- cord |= a+partner ^- cord
?- -.a ?- -.a
{$&} (stat p.a) $& (stat p.a)
{$|} %- crip $| %- crip
?- -.p.a ?- -.p.a
$twitter "{(trip -.p.a)}/{(trip p.p.a)}" $twitter "{(trip -.p.a)}/{(trip p.p.a)}"
== ==

4
mar/talk/telegrams.hoon
View File

@ -268,8 +268,8 @@
++ parn ++ parn
|= a+partner ^- cord |= a+partner ^- cord
?- -.a ?- -.a
{$&} (stat p.a) $& (stat p.a)
{$|} %- crip $| %- crip
?- -.p.a ?- -.p.a
$twitter "{(trip -.p.a)}/{(trip p.p.a)}" $twitter "{(trip -.p.a)}/{(trip p.p.a)}"
== ==

37
mar/txt.hoon
View File

@ -41,9 +41,9 @@
?~ ali `bob ?~ ali `bob
?~ bob `ali ?~ bob `ali
?- -.i.ali ?- -.i.ali
{$&} $&
?- -.i.bob ?- -.i.bob
{$&} $&
?: =(p.i.ali p.i.bob) ?: =(p.i.ali p.i.bob)
%+ bind $(ali t.ali, bob t.bob) %+ bind $(ali t.ali, bob t.bob)
|=(cud+(urge cord) [i.ali cud]) |=(cud+(urge cord) [i.ali cud])
@ -52,7 +52,8 @@
|=(cud+(urge cord) [i.bob cud]) |=(cud+(urge cord) [i.bob cud])
%+ bind $(ali t.ali, p.i.bob (sub p.i.bob p.i.ali)) %+ bind $(ali t.ali, p.i.bob (sub p.i.bob p.i.ali))
|=(cud+(urge cord) [i.ali cud]) |=(cud+(urge cord) [i.ali cud])
{$|} ::
$|
?: =(p.i.ali (lent p.i.bob)) ?: =(p.i.ali (lent p.i.bob))
%+ bind $(ali t.ali, bob t.bob) %+ bind $(ali t.ali, bob t.bob)
|=(cud+(urge cord) [i.bob cud]) |=(cud+(urge cord) [i.bob cud])
@ -62,10 +63,10 @@
~ ~
== ==
:: ::
{$|} $|
?- -.i.bob ?- -.i.bob
{$|} ~ $| ~
{$&} $&
?: =(p.i.bob (lent p.i.ali)) ?: =(p.i.bob (lent p.i.ali))
%+ bind $(ali t.ali, bob t.bob) %+ bind $(ali t.ali, bob t.bob)
|=(cud+(urge cord) [i.ali cud]) |=(cud+(urge cord) [i.ali cud])
@ -101,16 +102,16 @@
?~ ali bob ?~ ali bob
?~ bob ali ?~ bob ali
?- -.i.ali ?- -.i.ali
{$&} $&
?- -.i.bob ?- -.i.bob
{$&} $&
?: =(p.i.ali p.i.bob) ?: =(p.i.ali p.i.bob)
[i.ali $(ali t.ali, bob t.bob)] [i.ali $(ali t.ali, bob t.bob)]
?: (gth p.i.ali p.i.bob) ?: (gth p.i.ali p.i.bob)
[i.bob $(p.i.ali (sub p.i.ali p.i.bob), bob t.bob)] [i.bob $(p.i.ali (sub p.i.ali p.i.bob), bob t.bob)]
[i.ali $(ali t.ali, p.i.bob (sub p.i.bob p.i.ali))] [i.ali $(ali t.ali, p.i.bob (sub p.i.bob p.i.ali))]
:: ::
{$|} $|
?: =(p.i.ali (lent p.i.bob)) ?: =(p.i.ali (lent p.i.bob))
[i.bob $(ali t.ali, bob t.bob)] [i.bob $(ali t.ali, bob t.bob)]
?: (gth p.i.ali (lent p.i.bob)) ?: (gth p.i.ali (lent p.i.bob))
@ -121,14 +122,14 @@
:: ~ :: here, alice is good for a while, but not for the whole :: ~ :: here, alice is good for a while, but not for the whole
== :: length of bob's changes == :: length of bob's changes
:: ::
{$|} $|
?- -.i.bob ?- -.i.bob
{$|} $|
=+ ^- {fic+(unce cord) ali+(urge cord) bob+(urge cord)} =+ ^- {fic+(unce cord) ali+(urge cord) bob+(urge cord)}
(resolve ali bob) (resolve ali bob)
[fic $(ali ali, bob bob)] [fic $(ali ali, bob bob)]
:: ::
{$&} $&
?: =(p.i.bob (lent p.i.ali)) ?: =(p.i.bob (lent p.i.ali))
[i.ali $(ali t.ali, bob t.bob)] [i.ali $(ali t.ali, bob t.bob)]
?: (gth p.i.bob (lent p.i.ali)) ?: (gth p.i.bob (lent p.i.ali))
@ -196,10 +197,10 @@
?~ ali [[~ ~ ~] ali bob] ?~ ali [[~ ~ ~] ali bob]
?~ bob [[~ ~ ~] ali bob] ?~ bob [[~ ~ ~] ali bob]
?- -.i.ali ?- -.i.ali
{$&} $&
?- -.i.bob ?- -.i.bob
{$&} [[~ ~ ~] ali bob] :: no conflict $& [[~ ~ ~] ali bob] :: no conflict
{$|} $|
=+ lob=(lent p.i.bob) =+ lob=(lent p.i.bob)
?: =(lob p.i.ali) ?: =(lob p.i.ali)
[[p.i.bob p.i.bob q.i.bob] t.ali t.bob] [[p.i.bob p.i.bob q.i.bob] t.ali t.bob]
@ -220,9 +221,9 @@
== ==
== ==
:: ::
{$|} $|
?- -.i.bob ?- -.i.bob
{$&} $&
=+ loa=(lent p.i.ali) =+ loa=(lent p.i.ali)
?: =(loa p.i.bob) ?: =(loa p.i.bob)
[[p.i.ali q.i.ali p.i.ali] t.ali t.bob] [[p.i.ali q.i.ali p.i.ali] t.ali t.bob]
@ -242,7 +243,7 @@
bob.res bob.res
== ==
:: ::
{$|} $|
=+ loa=(lent p.i.ali) =+ loa=(lent p.i.ali)
=+ lob=(lent p.i.bob) =+ lob=(lent p.i.bob)
?: =(loa lob) ?: =(loa lob)