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

Removed help from cores; fixed +solid double

Browse Source
This commit is contained in:
Curtis Yarvin 2018-05-10 17:35:26 -07:00
parent a02a45061a
commit 7c5b00a653
4 changed files with 80 additions and 104 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gen/solid.hoon
View File

@ -33,22 +33,12 @@
=+ two=(~(mint ut p.one) %noun (rain arp rax)) =+ two=(~(mint ut p.one) %noun (rain arp rax))
~& %solid-arvo ~& %solid-arvo
[7 q.one q.two] [7 q.one q.two]
=/ tri =+ zax=(cat 3 '=> ' (cat 3 txt (cat 3 ' ' rax)))
''' ~& %solid-double-loading
:: XX moveme to, uh arvo probably, this depends on too many names
|= [pax=path txt=@t arp=path rax=@t]
=+ gen=(rain pax txt)
~& %solid-double-parsed
=+ one=(~(mint ut %noun) %noun gen)
~& %solid-double-compiled
=+ two=(~(mint ut p.one) %noun (rain arp rax))
~& %solid-arvo
[7 q.one q.two]
'''
=+ all=.*(0 q.one) =+ all=.*(0 q.one)
.* all ~& %solid-double-loaded
:+ 7 =<(+ .*(all [9 2 0+2 1+[p.one tri] 0+7])) =< +
[9 2 0+2 1+[pax txt arp rax] 0+7] .*(all [9 2 [0 2] [1 %noun zax] [0 7]])
:: ::
~& [%solid-kernel `@ux`(mug ken)] ~& [%solid-kernel `@ux`(mug ken)]
:- ken :- ken

8
sys/arvo.hoon
View File

@ -1,3 +1,4 @@
!:
:::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: :::::: Postface :::::: :::::: :::::: Postface ::::::
:::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
@ -463,6 +464,7 @@
-- --
=+ pit=`vase`!>(.) :: =+ pit=`vase`!>(.) ::
=+ bud=pit :: becomes tang =+ bud=pit :: becomes tang
:: =+ vil=(viol p.bud) :: cached reflexives
=+ vil=(viol p.bud) :: cached reflexives =+ vil=(viol p.bud) :: cached reflexives
=| $: lac/? :: laconic bit =| $: lac/? :: laconic bit
eny/@ :: entropy eny/@ :: entropy
@ -605,7 +607,7 @@
=- ?:(?=(%| -.res) ((slog p.res) +>.$) p.res) =- ?:(?=(%| -.res) ((slog p.res) +>.$) p.res)
^= res %- mule |. ^= res %- mule |.
?: =(%$ lal.fav) ?: =(%$ lal.fav)
~& [%tang pax.fav `@p`(mug txt.fav)] :: ~& [%tang pax.fav `@p`(mug txt.fav)]
=+ gen=(rain pax.fav txt.fav) =+ gen=(rain pax.fav txt.fav)
=+ vax=(slap pit gen) =+ vax=(slap pit gen)
+>.^$(bud vax) +>.^$(bud vax)
@ -613,14 +615,14 @@
q.niz q.niz
|- ^+ q.niz |- ^+ q.niz
?~ q.niz ?~ q.niz
~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)] :: ~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
=+ vin=(vint lal.fav vil bud pax.fav txt.fav) =+ vin=(vint lal.fav vil bud pax.fav txt.fav)
?~ vin ?~ vin
q.niz q.niz
[[lal.fav q.sew:u.vin] q.niz] [[lal.fav q.sew:u.vin] q.niz]
?. =(lal.fav p.i.q.niz) ?. =(lal.fav p.i.q.niz)
[i.q.niz $(q.niz t.q.niz)] [i.q.niz $(q.niz t.q.niz)]
~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)] :: ~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
:_ t.q.niz :_ t.q.niz
:- p.i.q.niz :- p.i.q.niz
q.sew:(ruck:(vent lal.fav vil bud [p.niz q.i.q.niz]) pax.fav txt.fav) q.sew:(ruck:(vent lal.fav vil bud [p.niz q.i.q.niz]) pax.fav txt.fav)

148
sys/hoon.hoon
View File

@ -5692,8 +5692,7 @@
== :: == ::
+= coil $: p/?($gold $iron $lead $zinc) :: core type += coil $: p/?($gold $iron $lead $zinc) :: core type
q/type :: built with q/type :: built with
r/chap :: docs r/{p/seminoun q/(map @ tomb)} :: arms
s/{p/seminoun q/(map @ tomb)} :: arms
== :: == ::
+= foot $% {$ash p/hoon} :: dry arm, geometric += foot $% {$ash p/hoon} :: dry arm, geometric
{$elm p/hoon} :: wet arm, generic {$elm p/hoon} :: wet arm, generic
@ -5787,7 +5786,7 @@
+= toga :: face control += toga :: face control
$@ p/term :: two togas $@ p/term :: two togas
$% {$0 ~} :: no toga $% {$0 ~} :: no toga
{$1 p/(pair what term) q/toga} :: deep toga {$1 p/term q/toga} :: deep toga
{$2 p/toga q/toga} :: cell toga {$2 p/toga q/toga} :: cell toga
== :: == ::
+= tomb (pair chap (map term (pair what foot))) :: core chapter += tomb (pair chap (map term (pair what foot))) :: core chapter
@ -5833,7 +5832,7 @@
{$rock p/term q/*} :: fixed constant {$rock p/term q/*} :: fixed constant
{$sand p/term q/*} :: unfixed constant {$sand p/term q/*} :: unfixed constant
{$tell p/(list hoon)} :: render as tape {$tell p/(list hoon)} :: render as tape
{$tune p/(pair what $@(term tune))} :: minimal face {$tune p/$@(term tune)} :: minimal face
{$wing p/wing} :: take wing {$wing p/wing} :: take wing
{$yell p/(list hoon)} :: render as tank {$yell p/(list hoon)} :: render as tank
{$xray p/manx:hoot} :: ;foo; templating {$xray p/manx:hoot} :: ;foo; templating
@ -5843,7 +5842,7 @@
:: :::::: cores :: :::::: cores
{$brcb p/chap q/spec r/alas s/(map @ tomb)} :: |_ {$brcb p/chap q/spec r/alas s/(map @ tomb)} :: |_
{$brcl p/chap q/hoon r/hoon} :: |: {$brcl p/chap q/hoon r/hoon} :: |:
{$brcn p/chap q/(map @ tomb)} :: |% {$brcn p/(map @ tomb)} :: |%
{$brdt p/chap q/hoon} :: |. {$brdt p/chap q/hoon} :: |.
{$brkt p/chap q/hoon r/(map @ tomb)} :: |^ {$brkt p/chap q/hoon r/(map @ tomb)} :: |^
{$brhp p/chap q/hoon} :: |- {$brhp p/chap q/hoon} :: |-
@ -5974,7 +5973,7 @@
$% {$atom p/term q/(unit @)} :: atom / constant $% {$atom p/term q/(unit @)} :: atom / constant
{$cell p/type q/type} :: ordered pair {$cell p/type q/type} :: ordered pair
{$core p/type q/coil} :: object {$core p/type q/coil} :: object
{$face p/{p/what q/$@(term tune)} q/type} :: namespace {$face p/$@(term tune) q/type} :: namespace
{$fork p/(set type)} :: union {$fork p/(set type)} :: union
{$hint p/(pair type note) q/type} :: annotation {$hint p/(pair type note) q/type} :: annotation
{$hold p/type q/hoon} :: lazy evaluation {$hold p/type q/hoon} :: lazy evaluation
@ -6527,7 +6526,7 @@
:: ::
++ face :: make %face type ++ face :: make %face type
~/ %face ~/ %face
|= {giz/{what $@(term tune)} der/type} |= {giz/$@(term tune) der/type}
^- type ^- type
?: =(%void der) ?: =(%void der)
%void %void
@ -6695,7 +6694,7 @@
++ robo ++ robo
|= togi |= togi
^- toga ^- toga
?@(+< +< [%1 [`p.+< q.+<] %0 ~]) ?@(+< +< [%1 q.+< %0 ~])
:: ::
++ look ++ look
~/ %look ~/ %look
@ -7143,7 +7142,7 @@
^- (list (pair term hoon)) ^- (list (pair term hoon))
%- zing %- zing
^- (list (list (pair term hoon))) ^- (list (list (pair term hoon)))
%+ turn ~(tap by q.s.battery) %+ turn ~(tap by q.r.battery)
|= [term =tomb] |= [term =tomb]
^- (list (pair term hoon)) ^- (list (pair term hoon))
%+ turn ~(tap by q.tomb) %+ turn ~(tap by q.tomb)
@ -7176,13 +7175,13 @@
|= $: :: decor: decoration |= $: :: decor: decoration
:: content: decorated content :: content: decorated content
:: ::
decor=(pair what $@(term tune)) decor=$@(term tune)
content=type content=type
== ==
^- [spec _+>] ^- [spec _+>]
=^ body +>.$ main(sut content) =^ body +>.$ main(sut content)
:_ +>.$ :_ +>.$
?@ q.decor [%bcts q.decor body] ?@ decor [%bcts decor body]
:: discard aliases, etc :: discard aliases, etc
:: ::
body body
@ -7313,7 +7312,7 @@
== ==
^- hoon ^- hoon
:+ %tsgr example:clear(mod payload) :+ %tsgr example:clear(mod payload)
:+ %brcn *chap :- %brcn
=- [[0 [~ ~] -] ~ ~] =- [[0 [~ ~] -] ~ ~]
%- ~(gas by *(map term (pair what foot))) %- ~(gas by *(map term (pair what foot)))
^- (list (trel term what foot)) ^- (list (trel term what foot))
@ -7969,7 +7968,7 @@
$leaf runk $leaf runk
$brcb ((doof -.gen +>.gen) p.gen) $brcb ((doof -.gen +>.gen) p.gen)
$brcl ((doof -.gen +>.gen) p.gen) $brcl ((doof -.gen +>.gen) p.gen)
$brcn ((doof -.gen +>.gen) p.gen) :: $brcn ((doof -.gen +>.gen) p.gen)
$brdt ((doof -.gen +>.gen) p.gen) $brdt ((doof -.gen +>.gen) p.gen)
$brkt ((doof -.gen +>.gen) p.gen) $brkt ((doof -.gen +>.gen) p.gen)
$brhp ((doof -.gen +>.gen) p.gen) $brhp ((doof -.gen +>.gen) p.gen)
@ -8043,31 +8042,12 @@
++ toni ++ toni
|= gyt/togi |= gyt/togi
^- {togi whit} ^- {togi whit}
?@ gyt [gyt *whit]
=^ wat wit (grif gyt ~)
?~ wat [gyt wit]
[[u.wat gyt] wit]
=^ wat wit (grif q.gyt `p.gyt)
?~ wat
[q.gyt wit]
[[u.wat q.gyt] wit]
:: ::
++ tong ++ tong
|= got/toga |= got/toga
^- {toga whit} ^- {toga whit}
?@ got [got *whit]
=^ wat wit (grif got ~)
?~ wat [got wit]
[[%1 [wat got] [%0 ~]] wit]
?- -.got
$0 [got wit]
$1 =^ wat wit (grif q.p.got p.p.got)
=^ sub wit $(got q.got)
[[%1 [wat q.p.got] sub] wit]
$2 =^ one wit $(got p.got)
=^ two wit $(got q.got)
[[%2 one two] wit]
==
-- --
:: ::
++ graf ++ graf
@ -8166,7 +8146,7 @@
{$note *} q.gen {$note *} q.gen
:: ::
{$brcb *} :+ %tsls [%bcdt q.gen] {$brcb *} :+ %tsls [%bcdt q.gen]
:+ %brcn p.gen :- %brcn
%- ~(run by s.gen) %- ~(run by s.gen)
|= tom/tomb |= tom/tomb
^+ tom ^+ tom
@ -8180,11 +8160,11 @@
?~ r.gen p.q.a ?~ r.gen p.q.a
[%tstr [~ p.i.r.gen] q.i.r.gen $(r.gen t.r.gen)] [%tstr [~ p.i.r.gen] q.i.r.gen $(r.gen t.r.gen)]
{$brcl *} [%tsls q.gen [%brdt p.gen r.gen]] {$brcl *} [%tsls q.gen [%brdt p.gen r.gen]]
{$brdt *} :+ %brcn p.gen {$brdt *} :- %brcn
=- [[0 [~ ~] -] ~ ~] =- [[0 [~ ~] -] ~ ~]
(~(put by *(map term (pair what foot))) %$ ~ [%ash q.gen]) (~(put by *(map term (pair what foot))) %$ ~ [%ash q.gen])
{$brkt *} :+ %tsgr {$brkt *} :+ %tsgr
:+ %brcn p.gen :- %brcn
=+ one=(~(got by r.gen) 0) =+ one=(~(got by r.gen) 0)
%+ ~(put by r.gen) 0 %+ ~(put by r.gen) 0
one(q (~(put by q.one) %$ [~ [%ash q.gen]])) one(q (~(put by q.one) %$ [~ [%ash q.gen]]))
@ -8192,7 +8172,7 @@
{$brhp *} [%tsgl [%limb %$] [%brdt p.gen q.gen]] {$brhp *} [%tsgl [%limb %$] [%brdt p.gen q.gen]]
{$brsg *} [%ktbr [%brts p.gen q.gen r.gen]] {$brsg *} [%ktbr [%brts p.gen q.gen r.gen]]
{$brtr *} :+ %tsls [%bcdt q.gen] {$brtr *} :+ %tsls [%bcdt q.gen]
:+ %brcn p.gen :- %brcn
=- [[0 [~ ~] -] ~ ~] =- [[0 [~ ~] -] ~ ~]
(~(put by *(map term (pair what foot))) %$ ~ [%elm r.gen]) (~(put by *(map term (pair what foot))) %$ ~ [%elm r.gen])
{$brts *} :^ %brcb p.gen q.gen {$brts *} :^ %brcb p.gen q.gen
@ -8302,7 +8282,7 @@
$marl =- [%cndt [p.i.p.gen $(p.gen t.p.gen)] -] $marl =- [%cndt [p.i.p.gen $(p.gen t.p.gen)] -]
^- hoon ^- hoon
:+ %tsbr [%base %cell] :+ %tsbr [%base %cell]
:+ %brcn *chap :- %brcn
^- (map @ tomb) ^- (map @ tomb)
=- [[0 [~ ~] -] ~ ~] =- [[0 [~ ~] -] ~ ~]
^- (map term (pair what foot)) ^- (map term (pair what foot))
@ -8528,7 +8508,7 @@
$yell (lead -.gen %.(+.gen moar)) $yell (lead -.gen %.(+.gen moar))
$brcb (lead -.gen %.(+.gen (quad noop stir exps arms))) $brcb (lead -.gen %.(+.gen (quad noop stir exps arms)))
$brcl (lead -.gen %.(+.gen (twin noop dubs))) $brcl (lead -.gen %.(+.gen (twin noop dubs)))
$brcn (lead -.gen %.(+.gen (twin noop arms))) $brcn (lead -.gen %.(+.gen arms))
$brdt (lead -.gen %.(+.gen (twin noop expr))) $brdt (lead -.gen %.(+.gen (twin noop expr)))
$brkt (lead -.gen %.(+.gen (trio noop expr arms))) $brkt (lead -.gen %.(+.gen (trio noop expr arms)))
$brhp (lead -.gen %.(+.gen (twin noop expr))) $brhp (lead -.gen %.(+.gen (twin noop expr)))
@ -8744,9 +8724,9 @@
(twin noop twef) (twin noop twef)
:: ::
++ tung ++ tung
|= bud/{p/what q/$@(term tune)} |= bud/$@(term tune)
?@ q.bud [bud vit] ?@ bud [bud vit]
(lead p.bud %.(q.bud (twin (raid (twin noop twee)) (moto expr)))) %.(bud (twin (raid (twin noop twee)) (moto expr)))
:: ::
++ twee ++ twee
|= bud/(unit hoon) |= bud/(unit hoon)
@ -8857,7 +8837,7 @@
{$atom *} ?~(q.sut [full/[~ ~ ~] ~] [full/~ u.q.sut]) {$atom *} ?~(q.sut [full/[~ ~ ~] ~] [full/~ u.q.sut])
{$cell *} (combine:musk $(sut p.sut) $(sut q.sut)) {$cell *} (combine:musk $(sut p.sut) $(sut q.sut))
{$core *} %+ combine:musk {$core *} %+ combine:musk
p.s.q.sut p.r.q.sut
$(sut p.sut) $(sut p.sut)
{$face *} $(sut repo) {$face *} $(sut repo)
{$fork *} [full/[~ ~ ~] ~] {$fork *} [full/[~ ~ ~] ~]
@ -8879,10 +8859,9 @@
burp(sut p.sut) burp(sut p.sut)
:* p.q.sut :* p.q.sut
burp(sut q.q.sut) burp(sut q.q.sut)
r.q.sut :_ q.r.q.sut
:_ q.s.q.sut ?: ?=([[%full ~] *] p.r.q.sut)
?: ?=([[%full ~] *] p.s.q.sut) p.r.q.sut
p.s.q.sut
[[%full ~ ~ ~] ~] [[%full ~ ~ ~] ~]
== ==
[%face *] [%face p.sut burp(sut q.sut)] [%face *] [%face p.sut burp(sut q.sut)]
@ -8895,18 +8874,18 @@
~/ %busk ~/ %busk
|= gen/hoon |= gen/hoon
^- type ^- type
[%face [~ ~ [gen ~]] sut] [%face [~ [gen ~]] sut]
:: ::
++ buss ++ buss
~/ %buss ~/ %buss
|= {{wat/what cog/term} gen/hoon} |= {{wat/what cog/term} gen/hoon}
^- type ^- type
[%face [wat [[cog ~ ~ gen] ~ ~] ~] sut] [%face [[[cog ~ ~ gen] ~ ~] ~] sut]
:: ::
++ conk ++ conk
|= got/toga |= got/toga
^- type ^- type
?@ got [%face [~ got] sut] ?@ got [%face got sut]
?- -.got ?- -.got
$0 sut $0 sut
$1 [%face p.got $(got q.got)] $1 [%face p.got $(got q.got)]
@ -9381,7 +9360,7 @@
{$core *} {$core *}
?~ q.heg here ?~ q.heg here
=^ zem p.heg =^ zem p.heg
=+ zem=(loot u.q.heg q.s.q.sut) =+ zem=(loot u.q.heg q.r.q.sut)
?~ zem [~ p.heg] ?~ zem [~ p.heg]
?:(=(0 p.heg) [zem 0] [~ (dec p.heg)]) ?:(=(0 p.heg) [zem 0] [~ (dec p.heg)])
?^ zem ?^ zem
@ -9398,7 +9377,7 @@
:: ::
{$face *} {$face *}
?: ?=(~ q.heg) here(sut q.sut) ?: ?=(~ q.heg) here(sut q.sut)
=* zot q.p.sut =* zot p.sut
?@ zot ?@ zot
?:(=(u.q.heg zot) here(sut q.sut) lose) ?:(=(u.q.heg zot) here(sut q.sut) lose)
=< main =< main
@ -9598,7 +9577,7 @@
++ laze ++ laze
:: produce lazy core generator for static execution :: produce lazy core generator for static execution
:: ::
|= [wad=chap dom=(map @ tomb)] |= [dom=(map @ tomb)]
:: only one layer of fabrication analysis :: only one layer of fabrication analysis
:: ::
=. fab & =. fab &
@ -9615,7 +9594,7 @@
^- (unit noun) ^- (unit noun)
%+ bind (~(get by tal) axe) %+ bind (~(get by tal) axe)
|= fut/foot |= fut/foot
%.(fut hemp(sut (core sut %gold sut wad [[%lazy 1 ..^$] ~] dom))) %.(fut hemp(sut (core sut %gold sut [[%lazy 1 ..^$] ~] dom)))
:: ::
%- ~(gas by *(map @ud foot)) %- ~(gas by *(map @ud foot))
=| yeb/(list (pair @ud foot)) =| yeb/(list (pair @ud foot))
@ -9717,10 +9696,10 @@
++ mile ++ mile
:: mull all chapters and feet in a core :: mull all chapters and feet in a core
:: ::
|= [dox=type mel=vair wad=chap dom=(map @ tomb)] |= [dox=type mel=vair dom=(map @ tomb)]
^- (pair type type) ^- (pair type type)
=+ yet=(core sut %gold sut wad (laze wad dom) dom) =+ yet=(core sut %gold sut (laze dom) dom)
=+ hum=(core dox %gold dox wad (laze wad dom) dom) =+ hum=(core dox %gold dox (laze dom) dom)
=+ %+ balk(sut yet) =+ %+ balk(sut yet)
hum hum
dom dom
@ -9729,12 +9708,12 @@
++ mine ++ mine
:: mint all chapters and feet in a core :: mint all chapters and feet in a core
:: ::
|= [mel/vair wad/chap dom/(map @ tomb)] |= [mel/vair dom/(map @ tomb)]
^- (pair type nock) ^- (pair type nock)
=- :_ [%1 dez] =- :_ [%1 dez]
(core sut mel sut wad [[%full ~] dez] dom) (core sut mel sut [[%full ~] dez] dom)
^= dez ^= dez
=. sut (core sut %gold sut wad (laze wad dom) dom) =. sut (core sut %gold sut (laze dom) dom)
|- ^- ?(~ ^) |- ^- ?(~ ^)
?: ?=(~ dom) ?: ?=(~ dom)
~ ~
@ -9775,7 +9754,7 @@
[(nice (cell p.hed p.tal)) (cons q.hed q.tal)] [(nice (cell p.hed p.tal)) (cons q.hed q.tal)]
:: ::
{$ktcn *} $(fab |, gen p.gen) {$ktcn *} $(fab |, gen p.gen)
{$brcn *} (grow %gold [%$ 1] p.gen q.gen) {$brcn *} (grow %gold [%$ 1] p.gen)
:: ::
{$cnts *} (~(mint et p.gen q.gen) gol) {$cnts *} (~(mint et p.gen q.gen) gol)
:: ::
@ -9898,10 +9877,10 @@
typ typ
:: ::
++ grow ++ grow
|= {mel/vair ruf/hoon wad/chap dom/(map @ tomb)} |= {mel/vair ruf/hoon dom/(map @ tomb)}
^- {p/type q/nock} ^- {p/type q/nock}
=+ dan=^$(gen ruf, gol %noun) =+ dan=^$(gen ruf, gol %noun)
=+ pul=(mine mel wad dom) =+ pul=(mine mel dom)
[(nice p.pul) (cons q.pul q.dan)] [(nice p.pul) (cons q.pul q.dan)]
-- --
:: ::
@ -9934,7 +9913,7 @@
[(nice (cell p.hed p.tal)) (cell q.hed q.tal)] [(nice (cell p.hed p.tal)) (cell q.hed q.tal)]
:: ::
{$ktcn *} $(fab |, gen p.gen) {$ktcn *} $(fab |, gen p.gen)
{$brcn *} (grow %gold [%$ 1] p.gen q.gen) {$brcn *} (grow %gold [%$ 1] p.gen)
{$cnts *} (~(mull et p.gen q.gen) gol dox) {$cnts *} (~(mull et p.gen q.gen) gol dox)
{$dtkt *} =+($(gen q.gen, gol %noun) $(gen [%bcdt p.gen])) {$dtkt *} =+($(gen q.gen, gol %noun) $(gen [%bcdt p.gen]))
{$dtls *} =+($(gen p.gen, gol [%atom %$ ~]) (beth [%atom %$ ~])) {$dtls *} =+($(gen p.gen, gol [%atom %$ ~]) (beth [%atom %$ ~]))
@ -10063,12 +10042,12 @@
typ typ
:: ::
++ grow ++ grow
|= {mel/vair ruf/hoon wad/chap dom/(map @ tomb)} |= {mel/vair ruf/hoon dom/(map @ tomb)}
:: make al :: make al
~_ leaf+"mull-grow" ~_ leaf+"mull-grow"
^- {p/type q/type} ^- {p/type q/type}
=+ dan=^$(gen ruf, gol %noun) =+ dan=^$(gen ruf, gol %noun)
=+ yaz=(mile(sut p.dan) q.dan mel wad dom) =+ yaz=(mile(sut p.dan) q.dan mel dom)
[(nice p.yaz) q.yaz] [(nice p.yaz) q.yaz]
-- --
++ meet |=(ref/type &((nest | ref) (nest(sut ref) | sut))) ++ meet |=(ref/type &((nest | ref) (nest(sut ref) | sut)))
@ -10188,7 +10167,7 @@
dext(sut q.q.ref, ref p.ref) dext(sut q.q.ref, ref p.ref)
(deem(sut q.q.sut, ref q.q.ref) p.q.sut p.q.ref) (deem(sut q.q.sut, ref q.q.ref) p.q.sut p.q.ref)
?| (~(has in gil) [sut ref]) ?| (~(has in gil) [sut ref])
%. [q.s.q.sut q.s.q.ref] %. [q.r.q.sut q.r.q.ref]
%= deep %= deep
gil (~(put in gil) [sut ref]) gil (~(put in gil) [sut ref])
sut sut(p q.q.sut, p.q %gold) sut sut(p q.q.sut, p.q %gold)
@ -10282,7 +10261,7 @@
?- gen ?- gen
{^ *} (cell $(gen p.gen) $(gen q.gen)) {^ *} (cell $(gen p.gen) $(gen q.gen))
{$ktcn *} $(fab |, gen p.gen) {$ktcn *} $(fab |, gen p.gen)
{$brcn *} (core sut %gold sut p.gen *seminoun q.gen) {$brcn *} (core sut %gold sut *seminoun p.gen)
{$cnts *} ~(play et p.gen q.gen) {$cnts *} ~(play et p.gen q.gen)
{$dtkt *} $(gen [%bcdt p.gen]) {$dtkt *} $(gen [%bcdt p.gen])
{$dtls *} [%atom %$ ~] {$dtls *} [%atom %$ ~]
@ -10445,7 +10424,7 @@
{$face *} {$face *}
:: push face on subject stack, and descend :: push face on subject stack, and descend
:: ::
dext(hos [q.p.sut hos], sut q.sut) dext(hos [p.sut hos], sut q.sut)
:: ::
{$hint *} {$hint *}
:: work through hint :: work through hint
@ -10495,7 +10474,7 @@
:: ::
|- ^- type |- ^- type
?~ lov sut ?~ lov sut
$(lov t.lov, sut (face [~ i.lov] sut)) $(lov t.lov, sut (face i.lov sut))
:: :: :: ::
++ sint :: reduce by reference ++ sint :: reduce by reference
|= $: :: hod: expand holds |= $: :: hod: expand holds
@ -10516,7 +10495,7 @@
:: ::
%= $ %= $
ref q.ref ref q.ref
wec (~(run in wec) |=((list tool) [q.p.ref +<])) wec (~(run in wec) |=((list tool) [p.ref +<]))
== ==
:: ::
{$fork *} {$fork *}
@ -11037,11 +11016,11 @@
%^ 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.r.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.r.q.sut)
%+ can 3 %+ can 3
:~ [1 (add 'a' (mod gum 26))] :~ [1 (add 'a' (mod gum 26))]
[1 (add 'a' (mod (div gum 26) 26))] [1 (add 'a' (mod (div gum 26) 26))]
@ -11053,7 +11032,7 @@
:: ::
{$face *} {$face *}
=+ yad=$(sut q.sut) =+ yad=$(sut q.sut)
?^(q.p.sut yad [p.yad [%face q.p.sut q.yad]]) ?^(p.sut yad [p.yad [%face p.sut q.yad]])
:: ::
{$fork *} {$fork *}
=+ yed=~(tap in p.sut) =+ yed=~(tap in p.sut)
@ -11162,10 +11141,10 @@
{$hint *} $(typ ~(repo ut typ)) {$hint *} $(typ ~(repo ut typ))
{$core *} {$core *}
|- ^- ? |- ^- ?
?~ q.s.q.typ | ?~ q.r.q.typ |
?| (~(has by q.q.n.q.s.q.typ) cog) ?| (~(has by q.q.n.q.r.q.typ) cog)
$(q.s.q.typ l.q.s.q.typ) $(q.r.q.typ l.q.r.q.typ)
$(q.s.q.typ r.q.s.q.typ) $(q.r.q.typ r.q.r.q.typ)
== ==
== ==
:: ::
@ -11176,7 +11155,7 @@
{$hold *} $(typ ~(repo ut typ)) {$hold *} $(typ ~(repo ut typ))
{$core *} {$core *}
%- zing %- zing
%+ turn ~(tap by q.s.q.typ) %+ turn ~(tap by q.r.q.typ)
|= {* b/tomb} |= {* b/tomb}
%+ turn ~(tap by q.b) %+ turn ~(tap by q.b)
|= {a/term *} |= {a/term *}
@ -12737,7 +12716,7 @@
%- stew %- stew
^. stet ^. limo ^. stet ^. limo
:~ ['_' (runo cab %brcb [~ ~] exqr)] :~ ['_' (runo cab %brcb [~ ~] exqr)]
['%' (runo cen %brcn [~ ~] expe)] ['%' (rune cen %brcn expe)]
[':' (runo col %brcl [~ ~] expb)] [':' (runo col %brcl [~ ~] expb)]
['.' (runo dot %brdt [~ ~] expa)] ['.' (runo dot %brdt [~ ~] expa)]
['-' (runo hep %brhp [~ ~] expa)] ['-' (runo hep %brhp [~ ~] expa)]
@ -13411,7 +13390,12 @@
++ ride :: end-to-end compiler ++ ride :: end-to-end compiler
|= {typ/type txt/@} |= {typ/type txt/@}
^- (pair type nock) ^- (pair type nock)
(~(mint ut typ) %noun (ream txt)) ~& %ride-parsing
=/ gen (ream txt)
~& %ride-compiling
=- ~& %ride-compiled
-
(~(mint ut typ) %noun gen)
:: ::
:::: 5e: caching compiler :::: 5e: caching compiler
:: ::

8
sys/vane/ford.hoon
View File

@ -1889,12 +1889,12 @@
:+ %tsgr :+ %tsgr
?: =(~ rop) ?: =(~ rop)
[%$ 1] [%$ 1]
:+ %brcn [~ ~] :- %brcn
=- [[0 [~ ~] -] ~ ~] =- [[0 [~ ~] -] ~ ~]
(~(run by rop) |=({^ a/hoon} [~ %ash a])) (~(run by rop) |=({^ a/hoon} [~ %ash a]))
?: =(~ bil) ?: =(~ bil)
[%$ 1] [%$ 1]
:+ %brcn [~ ~] :- %brcn
=- [[0 [~ ~] -] ~ ~] =- [[0 [~ ~] -] ~ ~]
(~(run by bil) |=({^ a/hoon} [~ %ash a])) (~(run by bil) |=({^ a/hoon} [~ %ash a]))
:: ::
@ -1990,7 +1990,7 @@
%+ tug:bo $(hon q.hon) %+ tug:bo $(hon q.hon)
%- with:bo %- with:bo
|= {mar/mark vax/vase} |= {mar/mark vax/vase}
[mar [%face [~ p.hon] p.vax] q.vax] [mar [%face p.hon p.vax] q.vax]
:: ::
$fsdt $fsdt
%+ tug:bo %+ tug:bo
@ -2172,7 +2172,7 @@
|: $:{cof/cafe mav/(map term (pair what foot)) sel/_..wilt} |: $:{cof/cafe mav/(map term (pair what foot)) sel/_..wilt}
?~ mav ?~ mav
(err:bo cof [%leaf "source missing: {<(en-beam p.hop)>}"]~) (err:bo cof [%leaf "source missing: {<(en-beam p.hop)>}"]~)
(new:bo cof sel(boy [[%brcn [~ ~] [[0 [~ ~] mav] ~ ~]] boy])) (new:bo cof sel(boy [[%brcn [[0 [~ ~] mav] ~ ~]] boy]))
== ==
-- --
:: ::