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

%call attempt.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-09-18 22:40:30 -07:00
parent 76dbc417ae
commit d66cdad1f1
8 changed files with 64 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/dojo.hoon
View File

@ -1214,7 +1214,7 @@
$get /scar
==
=+ gat=(slot 3 q.cay)
:+ %call (dy-silk-vase gat)
:+ %cnhp (dy-silk-vase gat)
:+ (dy-silk-vase !>([now=now.hid eny=eny.hid bec=he-beak]))
(dy-silk-sources p.cig)
:+ %mute (dy-silk-vase (fall (slew 27 gat) !>(~)))
@ -1316,7 +1316,7 @@
$dv [/hand [%core he-beak (flop p.bil)]]
$ex [/hand (dy-mare p.bil)]
$as [/hand [%cast p.bil [%$ (dy-cage p.q.bil)]]]
$do [/hand [%call (dy-mare p.bil) [%$ (dy-cage p.q.bil)]]]
$do [/hand [%cnhp (dy-mare p.bil) [%$ (dy-cage p.q.bil)]]]
$tu :- /hand
:- %$
:- %noun

2
neo/arvo.hoon
View File

@ -582,7 +582,7 @@
hil/mill
==
^+ ..va
=^ nex sac.hax (~(call wa sac.hax) fox %call hil)
=^ nex sac.hax (~(call wa sac.hax) fox %cnhp hil)
abet(fox nex)
:: :: ++take:spin:va-plow:
++ take :: pass backward

54
neo/hoon.hoon
View File

@ -5446,7 +5446,7 @@
:: :::::: invocations
{$cncb p/wing q/(list (pair wing twig))} :: %_
{$cndt p/twig q/twig} :: %.
{$call p/twig q/(list twig)} :: %-
{$cnhp p/twig q/(list twig)} :: %-
{$cntr p/wing q/twig r/(list (pair wing twig))} :: %*
{$cnkt p/twig q/twig r/twig s/twig} :: %^
{$cnls p/twig q/twig r/twig} :: %+
@ -6078,7 +6078,7 @@
=. wat ~
=+ cys=~(boil ap p.sec)
?: ?=($herb -.cys)
[%call (home p.sec) [%$ axe] ~]
[%cnhp (home p.sec) [%$ axe] ~]
$(sec cys)
::
{$kelp *}
@ -6428,9 +6428,9 @@
::
{$leaf *} ~(clam al boil)
{$limb *} [%make [p.gen ~] ~]
{$tell *} [%call [%limb %noah] [%wrap [%cltr p.gen]] ~]
{$tell *} [%cnhp [%limb %noah] [%wrap [%cltr p.gen]] ~]
{$wing *} [%make p.gen ~]
{$yell *} [%call [%limb %cain] [%wrap [%cltr p.gen]] ~]
{$yell *} [%cnhp [%limb %cain] [%wrap [%cltr p.gen]] ~]
::
{$bcpt *} ~(clam al boil)
{$bccb *} ~(clam al boil)
@ -6485,10 +6485,10 @@
::
{$bunt *} [%burn ~(bunt al %herb p.gen)]
{$cncb *} [%like [%wing p.gen] %make p.gen q.gen]
{$cndt *} [%call q.gen [p.gen ~]]
{$cnkt *} [%call p.gen q.gen r.gen s.gen ~]
{$cnls *} [%call p.gen q.gen r.gen ~]
{$call *} [%open [%$ ~] p.gen q.gen]
{$cndt *} [%cnhp q.gen [p.gen ~]]
{$cnkt *} [%cnhp p.gen q.gen r.gen s.gen ~]
{$cnls *} [%cnhp p.gen q.gen r.gen ~]
{$cnhp *} [%open [%$ ~] p.gen q.gen]
{$open *} :: [%cntr p.gen q.gen (hail(gen [%cltr r.gen]) 6)]
:^ %cntr p.gen q.gen
::
@ -6512,14 +6512,14 @@
(weld p.gen `wing`[[%& 2] ~])
(turn r.gen |=({p/wing q/twig} [p [%per [%$ 3] q]]))
::
{$ward *} [%like [%call p.gen q.gen ~] q.gen]
{$ward *} [%like [%cnhp p.gen q.gen ~] q.gen]
{$cast *} [%like ~(bunt al [%herb p.gen]) q.gen]
{$show *}
:+ %hint
:- %mean
=+ fek=~(feck ap p.gen)
?^ fek [%rock %tas u.fek]
[%brdt [~ ~] [%call [%limb %cain] [%wrap [%per [%$ 3] p.gen]] ~]]
[%brdt [~ ~] [%cnhp [%limb %cain] [%wrap [%per [%$ 3] p.gen]] ~]]
q.gen
::
{$lurk *} [%hint [%mean [%brdt [~ ~] p.gen]] q.gen]
@ -6543,7 +6543,7 @@
{$memo *} [%hint [%memo %rock %$ p.gen] q.gen]
{$dump *}
:+ %hint
[%slog [%sand %$ p.gen] [%call [%limb %cain] [%wrap q.gen] ~]]
[%slog [%sand %$ p.gen] [%cnhp [%limb %cain] [%wrap q.gen] ~]]
r.gen
::
{$ddup *} [%hint [%germ p.gen] q.gen]
@ -6564,7 +6564,7 @@
|- ^- twig
?- yex
{* $~} [%per [%$ 3] i.yex]
{* ^} [%call [%$ 2] [%per [%$ 3] i.yex] $(yex t.yex) ~]
{* ^} [%cnhp [%$ 2] [%per [%$ 3] i.yex] $(yex t.yex) ~]
$~ !!
==
==
@ -6590,7 +6590,7 @@
:+ %brdt [~ ~] :: |.
:^ %cnls :: %+
[%per [%limb %v] p.gen] :: =>(v {p.gen})
[%call [%limb %b] [%limb %c] ~] :: (b c)
[%cnhp [%limb %b] [%limb %c] ~] :: (b c)
:+ %make [%a ~] :: a(,.+6 c)
[[[[%| 0 ~] [%& 6] ~] [%limb %c]] ~] ::
== ::
@ -6601,7 +6601,7 @@
[%per [%limb %v] p.gen] :: =>(v {p.gen})
:+ %pin [%name %b [%per [%limb %v] q.gen]] :: =+ b==>(v {q.gen})
:+ %pin :: =+ c=(a b)
[%name %c [%call [%limb %a] [%limb %b] ~]] ::
[%name %c [%cnhp [%limb %a] [%limb %b] ~]] ::
:+ %sure :: ?>(=(`*`c `*`b) c)
:+ %same ::
[%cast [%base %noun] [%limb %c]] ::
@ -6678,7 +6678,7 @@
{$ifno *} [%if [%fits [%base %null] p.gen] q.gen r.gen]
{$not *} [%if p.gen [%rock %f 1] [%rock %f 0]]
{$wrap *}
[%call [%limb %onan] [%spit [%bunt [%limb %abel]] p.gen] ~]
[%cnhp [%limb %onan] [%spit [%bunt [%limb %abel]] p.gen] ~]
::
{$need *}
?: ?: ?=(@ p.gen)
@ -6774,7 +6774,7 @@
$cltr (lead -.gen %.(+.gen moar))
$cncb (lead -.gen %.(+.gen (twin noop moan)))
$cndt (lead -.gen %.(+.gen dubs))
$call (lead -.gen %.(+.gen (twin expr moar)))
$cnhp (lead -.gen %.(+.gen (twin expr moar)))
$cntr (lead -.gen %.(+.gen (trio noop expr moan)))
$cnkt (lead -.gen %.(+.gen (quad expr expr expr expr)))
$cnls (lead -.gen %.(+.gen trey))
@ -7889,7 +7889,7 @@
=+ vat=$(gen p.gen)
%= $
gen
:- [%call [%limb %onan] [%hand p:!>(*span) [%1 p.vat]] ~]
:- [%cnhp [%limb %onan] [%hand p:!>(*span) [%1 p.vat]] ~]
[%hand p.vat q.vat]
==
::
@ -8314,7 +8314,7 @@
{$twig *} (play p.gen)
{$wrap *} %= $
gen
[%call [%limb %onan] [%hand p:!>(*span) [%1 $(gen p.gen)]] ~]
[%cnhp [%limb %onan] [%hand p:!>(*span) [%1 $(gen p.gen)]] ~]
==
{$lost *} %void
{$spit *} (cell $(gen p.gen) $(gen q.gen))
@ -8993,7 +8993,7 @@
++ glam ~+((glue ace))
++ hasp ;~ pose
(ifix [sel ser] wide)
(stag %call (ifix [pel per] (most ace wide)))
(stag %cnhp (ifix [pel per] (most ace wide)))
(stag %sand (stag %t qut))
%+ cook
|=(a/coin [%sand ?:(?=({$~ $tas *} a) %tas %ta) ~(rent co a)])
@ -9474,7 +9474,7 @@
:^ %ifno sug
[%make sug [[[[%& 1] ~] [%$ 13]] ~]]
[%make sug [[[[%& 3] ~] [%make [%$ ~] [[sug [%$ 25]] ~]]] ~]]
$d [[%call p.i.lut [%cltr $(lut t.lut)] ~] ~]
$d [[%cnhp p.i.lut [%cltr $(lut t.lut)] ~] ~]
$e [[p.i.lut ^$(lut [[%f q.i.lut] ~])] $(lut t.lut)]
$f $(lut (weld p.i.lut t.lut))
==
@ -9521,7 +9521,7 @@
==
:- '('
%+ stag %bcsm
%+ stag %call
%+ stag %cnhp
%+ ifix [pel per]
;~(plug wide ;~(pose ;~(pfix ace (most ace wyde)) (easy ~)))
:- '{'
@ -9603,7 +9603,7 @@
:- '\''
(stag %sand (stag %t qut))
:- '('
(stag %call (ifix [pel per] (most ace wide)))
(stag %cnhp (ifix [pel per] (most ace wide)))
:- '{'
(stag %bccl (ifix [kel ker] (most ace wide)))
:- '*'
@ -9770,8 +9770,8 @@
^. stet ^. limo
:~ ['^' (rune ket %cnkt exqy)]
['+' (rune lus %cnls exqx)]
['-' (rune hep %call exqk)]
[':' (rune col %call exqz)]
['-' (rune hep %cnhp exqk)]
[':' (rune col %cnhp exqz)]
==
==
==
@ -9816,8 +9816,8 @@
['.' (rune dot %cndt expb)]
['^' (rune ket %cnkt expd)]
['+' (rune lus %cnls expc)]
['-' (rune hep %call expk)]
[':' (rune col %call expi)]
['-' (rune hep %cnhp expk)]
[':' (rune col %cnhp expi)]
['~' (rune sig %open expu)]
['*' (rune tar %cntr expm)]
['=' (rune tis %make exph)]
@ -9862,7 +9862,7 @@
(word %cndt expb)
(word %cnkt expd)
(word %cnls expc)
(word %call expk)
(word %cnhp expk)
(word %open expu)
(word %cntr expm)
(word %make exph)

2
neo/lull.hoon
View File

@ -708,7 +708,7 @@
{$alts p/(list silk)} :: options
{$cntr p/mark q/coin r/beam} :: local synthesis
{$bunt p/mark} :: example of mark
{$call p/silk q/silk} :: slam
{$cnhp p/silk q/silk} :: slam
{$cast p/mark q/silk} :: translate
{$core p/beam} :: build program
{$diff p/silk q/silk} :: diff

2
neo/van/dill.hoon
View File

@ -477,7 +477,7 @@
:_(..^$ ?~(hey.all ~ [u.hey.all %slip %d p.q.hic]~))
=. hey.all ?^(hey.all hey.all `hen)
?: ?=($init -.q.hic)
:: ~& [%call-init hen]
:: ~& [%cnhp-init hen]
?: =(ore.all `p.q.hic)
[[hen %give q.hic]~ ..^$]
=: ore.all `p.q.hic

2
neo/van/ford.hoon
View File

@ -1286,7 +1286,7 @@
=. typ ?+(-.typ typ $face q.typ)
(fine cof [%& p.kas [typ val]])
::
$call
$cnhp
:: %+ cool |.(leaf+"ford: call {<`@p`(mug kas)>}")
%. [cof p.kas q.kas]
;~ cope

58
sys/hoon.hoon
View File

@ -5470,7 +5470,7 @@
++ mare (each manx marl) :: node or nodes
++ maru (each tuna marl) :: interp or nodes
++ tuna :: maybe interpolation
$^(manx {?($tape $manx $marl $call) p/twig}) ::
$^(manx {?($tape $manx $marl $cnhp) p/twig}) ::
-- ::
$^ {p/twig q/twig} ::
$% ::
@ -5526,7 +5526,7 @@
:: :::::: invocations
{$cncb p/wing q/(list (pair wing twig))} :: %_
{$cndt p/twig q/twig} :: %.
{$call p/twig q/(list twig)} :: %-
{$cnhp p/twig q/(list twig)} :: %-
{$cntr p/wing q/twig r/(list (pair wing twig))} :: %*
{$cnkt p/twig q/twig r/twig s/twig} :: %^
{$cnls p/twig q/twig r/twig} :: %+
@ -6162,7 +6162,7 @@
=. wat ~
=+ cys=~(boil ap p.sec)
?: ?=($herb -.cys)
[%call (home p.sec) [%$ axe] ~]
[%cnhp (home p.sec) [%$ axe] ~]
$(sec cys)
::
{$kelp *}
@ -6512,9 +6512,9 @@
::
{$leaf *} ~(clam al boil)
{$limb *} [%cnts [p.gen ~] ~]
{$tell *} [%call [%limb %noah] [%wrap [%cltr p.gen]] ~]
{$tell *} [%cnhp [%limb %noah] [%wrap [%cltr p.gen]] ~]
{$wing *} [%cnts p.gen ~]
{$yell *} [%call [%limb %cain] [%wrap [%cltr p.gen]] ~]
{$yell *} [%cnhp [%limb %cain] [%wrap [%cltr p.gen]] ~]
::
{$bcpt *} ~(clam al boil)
{$bccb *} ~(clam al boil)
@ -6569,10 +6569,10 @@
::
{$bunt *} [%burn ~(bunt al %herb p.gen)]
{$cncb *} [%like [%wing p.gen] %cnts p.gen q.gen]
{$cndt *} [%call q.gen [p.gen ~]]
{$cnkt *} [%call p.gen q.gen r.gen s.gen ~]
{$cnls *} [%call p.gen q.gen r.gen ~]
{$call *} [%cnsg [%$ ~] p.gen q.gen]
{$cndt *} [%cnhp q.gen [p.gen ~]]
{$cnkt *} [%cnhp p.gen q.gen r.gen s.gen ~]
{$cnls *} [%cnhp p.gen q.gen r.gen ~]
{$cnhp *} [%cnsg [%$ ~] p.gen q.gen]
{$cnsg *} :: [%cntr p.gen q.gen (hail(gen [%cltr r.gen]) 6)]
:^ %cntr p.gen q.gen
::
@ -6596,14 +6596,14 @@
(weld p.gen `wing`[[%& 2] ~])
(turn r.gen |=({p/wing q/twig} [p [%per [%$ 3] q]]))
::
{$ward *} [%like [%call p.gen q.gen ~] q.gen]
{$ward *} [%like [%cnhp p.gen q.gen ~] q.gen]
{$cast *} [%like ~(bunt al [%herb p.gen]) q.gen]
{$show *}
:+ %hint
:- %mean
=+ fek=~(feck ap p.gen)
?^ fek [%rock %tas u.fek]
[%brdt [~ ~] [%call [%limb %cain] [%wrap [%per [%$ 3] p.gen]] ~]]
[%brdt [~ ~] [%cnhp [%limb %cain] [%wrap [%per [%$ 3] p.gen]] ~]]
q.gen
::
{$lurk *} [%hint [%mean [%brdt [~ ~] p.gen]] q.gen]
@ -6627,7 +6627,7 @@
{$memo *} [%hint [%memo %rock %$ p.gen] q.gen]
{$dump *}
:+ %hint
[%slog [%sand %$ p.gen] [%call [%limb %cain] [%wrap q.gen] ~]]
[%slog [%sand %$ p.gen] [%cnhp [%limb %cain] [%wrap q.gen] ~]]
r.gen
::
{$ddup *} [%hint [%germ p.gen] q.gen]
@ -6655,7 +6655,7 @@
^ [[%xmn i.p.gen] $(p.gen t.p.gen)]
$manx [p.i.p.gen $(p.gen t.p.gen)]
$tape [[%nub p.i.p.gen] $(p.gen t.p.gen)]
$call [%call p.i.p.gen [$(p.gen t.p.gen)]~]
$cnhp [%cnhp p.i.p.gen [$(p.gen t.p.gen)]~]
$marl =- [%cndt [p.i.p.gen $(p.gen t.p.gen)] -]
^- twig
:+ %new [%base %cell]
@ -6682,7 +6682,7 @@
|- ^- twig
?- yex
{* $~} [%per [%$ 3] i.yex]
{* ^} [%call [%$ 2] [%per [%$ 3] i.yex] $(yex t.yex) ~]
{* ^} [%cnhp [%$ 2] [%per [%$ 3] i.yex] $(yex t.yex) ~]
$~ !!
==
==
@ -6708,7 +6708,7 @@
:+ %brdt [~ ~] :: |.
:^ %cnls :: %+
[%per [%limb %v] p.gen] :: =>(v {p.gen})
[%call [%limb %b] [%limb %c] ~] :: (b c)
[%cnhp [%limb %b] [%limb %c] ~] :: (b c)
:+ %cnts [%a ~] :: a(,.+6 c)
[[[[%| 0 ~] [%& 6] ~] [%limb %c]] ~] ::
== ::
@ -6719,7 +6719,7 @@
[%per [%limb %v] p.gen] :: =>(v {p.gen})
:+ %pin [%name %b [%per [%limb %v] q.gen]] :: =+ b==>(v {q.gen})
:+ %pin :: =+ c=(a b)
[%name %c [%call [%limb %a] [%limb %b] ~]] ::
[%name %c [%cnhp [%limb %a] [%limb %b] ~]] ::
:+ %sure :: ?>(=(`*`c `*`b) c)
:+ %same ::
[%cast [%base %noun] [%limb %c]] ::
@ -6796,7 +6796,7 @@
{$ifno *} [%if [%fits [%base %null] p.gen] q.gen r.gen]
{$not *} [%if p.gen [%rock %f 1] [%rock %f 0]]
{$wrap *}
[%call [%limb %onan] [%spit [%bunt [%limb %abel]] p.gen] ~]
[%cnhp [%limb %onan] [%spit [%bunt [%limb %abel]] p.gen] ~]
::
{$need *}
?: ?: ?=(@ p.gen)
@ -6892,7 +6892,7 @@
$cltr (lead -.gen %.(+.gen moar))
$cncb (lead -.gen %.(+.gen (twin noop moan)))
$cndt (lead -.gen %.(+.gen dubs))
$call (lead -.gen %.(+.gen (twin expr moar)))
$cnhp (lead -.gen %.(+.gen (twin expr moar)))
$cntr (lead -.gen %.(+.gen (trio noop expr moan)))
$cnkt (lead -.gen %.(+.gen (quad expr expr expr expr)))
$cnls (lead -.gen %.(+.gen trey))
@ -8010,7 +8010,7 @@
=+ vat=$(gen p.gen)
%= $
gen
:- [%call [%limb %onan] [%hand p:!>(*span) [%1 p.vat]] ~]
:- [%cnhp [%limb %onan] [%hand p:!>(*span) [%1 p.vat]] ~]
[%hand p.vat q.vat]
==
::
@ -8482,7 +8482,7 @@
{$twig *} (play p.gen)
{$wrap *} %= $
gen
[%call [%limb %onan] [%hand p:!>(*span) [%1 $(gen p.gen)]] ~]
[%cnhp [%limb %onan] [%hand p:!>(*span) [%1 $(gen p.gen)]] ~]
==
{$lost *} %void
{$spit *} (cell $(gen p.gen) $(gen q.gen))
@ -9383,7 +9383,7 @@
++ glam ~+((glue ace))
++ hasp ;~ pose
(ifix [sel ser] wide)
(stag %call (ifix [pel per] (most ace wide)))
(stag %cnhp (ifix [pel per] (most ace wide)))
(stag %sand (stag %t qut))
%+ cook
|=(a/coin [%sand ?:(?=({$~ $tas *} a) %tas %ta) ~(rent co a)])
@ -9670,7 +9670,7 @@
(cold %tape hep)
(cold %manx lus)
(cold %marl tar)
(cold %call cen)
(cold %cnhp cen)
==
::
++ wide-top :: wide outer top
@ -9916,7 +9916,7 @@
==
:- '('
%+ stag %bcsm
%+ stag %call
%+ stag %cnhp
%+ ifix [pel per]
;~(plug wide ;~(pose ;~(pfix ace (most ace wyde)) (easy ~)))
:- '{'
@ -9998,7 +9998,7 @@
:- '\''
(stag %sand (stag %t qut))
:- '('
(stag %call (ifix [pel per] (most ace wide)))
(stag %cnhp (ifix [pel per] (most ace wide)))
:- '{'
(stag %bccl (ifix [kel ker] (most ace wide)))
:- '*'
@ -10165,8 +10165,8 @@
^. stet ^. limo
:~ ['^' (rune ket %cnkt exqy)]
['+' (rune lus %cnls exqx)]
['-' (rune hep %call exqk)]
[':' (rune col %call exqz)]
['-' (rune hep %cnhp exqk)]
[':' (rune col %cnhp exqz)]
==
==
==
@ -10211,8 +10211,8 @@
['.' (rune dot %cndt expb)]
['^' (rune ket %cnkt expd)]
['+' (rune lus %cnls expc)]
['-' (rune hep %call expk)]
[':' (rune col %call expi)]
['-' (rune hep %cnhp expk)]
[':' (rune col %cnhp expi)]
['~' (rune sig %cnsg expu)]
['*' (rune tar %cntr expm)]
['=' (rune tis %cnts exph)]
@ -10257,7 +10257,7 @@
(word %cndt expb)
(word %cnkt expd)
(word %cnls expc)
(word %call expk)
(word %cnhp expk)
(word %cnsg expu)
(word %cntr expm)
(word %cnts exph)

4
sys/vane/dill.hoon
View File

@ -482,7 +482,7 @@
:_(..^$ ?~(hey.all ~ [u.hey.all %slip %d p.q.hic]~))
=. hey.all ?^(hey.all hey.all `hen)
?: ?=($init -.q.hic)
:: ~& [%call-init hen]
:: ~& [%cnhp-init hen]
?: =(ore.all `p.q.hic)
[[hen %give q.hic]~ ..^$]
=: ore.all `p.q.hic
@ -583,7 +583,7 @@
:_(+>.$ ?~(hey.all ~ [u.hey.all %slip %d p.tac]~))
=. hey.all ?^(hey.all hey.all `hen)
?: ?=($init -.tac)
:: ~& [%call-init hen]
:: ~& [%cnhp-init hen]
?: =(ore.all `p.tac)
[[hen %give tac]~ +>.$]
=: ore.all `p.tac