sys: s/mure/road

This commit is contained in:
Ted Blackman 2020-06-19 00:44:17 -04:00
parent 7494bf57c6
commit d1b4af89fe
3 changed files with 12 additions and 12 deletions

View File

@ -1266,7 +1266,7 @@
:: ::
=/ raw =/ raw
~> %slog.[0 leaf+"vega: compiling hoon"] ~> %slog.[0 leaf+"vega: compiling hoon"]
(mure |.((ride %noun u.hun))) (road |.((ride %noun u.hun)))
:: activate the new compiler gate, producing +ride :: activate the new compiler gate, producing +ride
:: ::
=/ cop .*(0 +.raw) =/ cop .*(0 +.raw)
@ -1282,7 +1282,7 @@
[raw cop] [raw cop]
~> %slog.[0 leaf+"vega: recompiling hoon {<nex>}k"] ~> %slog.[0 leaf+"vega: recompiling hoon {<nex>}k"]
~& [%hoon-compile-upgrade nex] ~& [%hoon-compile-upgrade nex]
%- mure |. %- road |.
=/ hot (slum cop [%noun hun]) =/ hot (slum cop [%noun hun])
[hot .*(0 +.hot)] [hot .*(0 +.hot)]
:: extract the hoon core from the outer gate (+ride) :: extract the hoon core from the outer gate (+ride)
@ -1297,7 +1297,7 @@
:: ::
=/ rav =/ rav
~> %slog.[0 leaf+"vega: compiling kernel {(scow %p (mug hyp))}"] ~> %slog.[0 leaf+"vega: compiling kernel {(scow %p (mug hyp))}"]
%- mure |. %- road |.
(slum cop [hyp van]) (slum cop [hyp van])
:: activate arvo, and extract the arvo core from the outer gate :: activate arvo, and extract the arvo core from the outer gate
:: ::

View File

@ -12035,13 +12035,13 @@
?~ a !! ?~ a !!
~_(i.a $(a t.a)) ~_(i.a $(a t.a))
:: ::
++ mure ++ road
|* =(trap *) |* =(trap *)
^+ $:trap ^+ $:trap
=/ res (mule trap) =/ res (mule trap)
?- -.res ?- -.res
%& p.res %& p.res
%| (mean leaf+"mure: road" p.res) %| (mean leaf+"road: new" p.res)
== ==
:: ::
++ slew :: get axis in vase ++ slew :: get axis in vase

View File

@ -756,7 +756,7 @@
=^ sut=vase nub (run-tauts sut %lib lib.pile) =^ sut=vase nub (run-tauts sut %lib lib.pile)
=^ sut=vase nub (run-raw sut raw.pile) =^ sut=vase nub (run-raw sut raw.pile)
=^ sut=vase nub (run-bar sut bar.pile) =^ sut=vase nub (run-bar sut bar.pile)
=/ res=vase (mure |.((slap sut hoon.pile))) =/ res=vase (road |.((slap sut hoon.pile)))
[res nub] [res nub]
:: ::
++ parse-pile ++ parse-pile
@ -1550,7 +1550,7 @@
zuse.u.fer zuse.u.fer
:: ::
++ build-hoon ++ build-hoon
%- mure |. %- road |.
~> %slog.0^leaf+"clay: building hoon on {<syd>}" ~> %slog.0^leaf+"clay: building hoon on {<syd>}"
=/ gen =/ gen
~> %mean.%hoon-parse-fail ~> %mean.%hoon-parse-fail
@ -1560,7 +1560,7 @@
:: ::
++ build-arvo ++ build-arvo
|= hoon=vase |= hoon=vase
%- mure |. %- road |.
~> %slog.0^leaf+"clay: building arvo on {<syd>}" ~> %slog.0^leaf+"clay: building arvo on {<syd>}"
=/ gen =/ gen
~> %mean.%arvo-parse-fail ~> %mean.%arvo-parse-fail
@ -1570,7 +1570,7 @@
:: ::
++ build-zuse ++ build-zuse
|= arvo=vase |= arvo=vase
%- mure |. %- road |.
~> %slog.0^leaf+"clay: building zuse on {<syd>}" ~> %slog.0^leaf+"clay: building zuse on {<syd>}"
=/ gen =/ gen
~> %mean.%zuse-parse-fail ~> %mean.%zuse-parse-fail
@ -4064,7 +4064,7 @@
(build-zuse arvo) (build-zuse arvo)
:: ::
++ build-hoon ++ build-hoon
%- mure |. %- road |.
~> %slog.0^leaf+"clay: building hoon on {<desk>}" ~> %slog.0^leaf+"clay: building hoon on {<desk>}"
=/ gen =/ gen
~> %mean.%hoon-parse-fail ~> %mean.%hoon-parse-fail
@ -4075,7 +4075,7 @@
:: ::
++ build-arvo ++ build-arvo
|= hoon=vase |= hoon=vase
%- mure |. %- road |.
~> %slog.0^leaf+"clay: building arvo on {<desk>}" ~> %slog.0^leaf+"clay: building arvo on {<desk>}"
=/ gen =/ gen
~> %mean.%arvo-parse-fail ~> %mean.%arvo-parse-fail
@ -4086,7 +4086,7 @@
:: ::
++ build-zuse ++ build-zuse
|= arvo=vase |= arvo=vase
%- mure |. %- road |.
~> %slog.0^leaf+"clay: building zuse on {<desk>}" ~> %slog.0^leaf+"clay: building zuse on {<desk>}"
=/ gen =/ gen
~> %mean.%zuse-parse-fail ~> %mean.%zuse-parse-fail