mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 04:22:48 +03:00
Fix broken build.
This commit is contained in:
C. Guy Yarvin
parent
1ed2060aae
commit
f4c984bda0
@ -159,7 +159,7 @@
|
|||||||
[%vega p=path] ::
|
[%vega p=path] ::
|
||||||
== == ::
|
== == ::
|
||||||
$: %f :: by %ford
|
$: %f :: by %ford
|
||||||
$% [%made p=(each bead (list tank))] ::
|
$% [%made p=@uvH q=(each cage tang)] ::
|
||||||
== == == ::
|
== == == ::
|
||||||
++ toil (pair duct knob) :: work in progress
|
++ toil (pair duct knob) :: work in progress
|
||||||
-- ::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
-- ::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||||
@ -410,12 +410,12 @@
|
|||||||
:_ ..^$
|
:_ ..^$
|
||||||
:_ ~
|
:_ ~
|
||||||
:- hen
|
:- hen
|
||||||
?- -.p.+.sih
|
?- -.q.+.sih
|
||||||
%|
|
%|
|
||||||
[%give %crud %gasp-crud p.p.+.sih]
|
[%give %crud %gasp-crud p.q.+.sih]
|
||||||
::
|
::
|
||||||
%&
|
%&
|
||||||
=+ cay=`cage`q.p.p.+.sih
|
=+ cay=`cage`p.q.+.sih
|
||||||
?+ -.pax !!
|
?+ -.pax !!
|
||||||
%d [%give (best %rush cay)]
|
%d [%give (best %rush cay)]
|
||||||
%f [%give (best %rust cay)]
|
%f [%give (best %rust cay)]
|
||||||
@ -441,9 +441,9 @@
|
|||||||
::
|
::
|
||||||
%f
|
%f
|
||||||
:_ ~ :- hen
|
:_ ~ :- hen
|
||||||
?- -.p.+.sih
|
?- -.q.+.sih
|
||||||
%| [%give %mean ~ %ford-fail p.p.+.sih]
|
%| [%give %mean ~ %ford-fail p.q.+.sih]
|
||||||
%& [%pass [%r pax] %g %mess [our imp] you `cage`q.p.p.+.sih]
|
%& [%pass [%r pax] %g %mess [our imp] you `cage`p.q.+.sih]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
%g
|
%g
|
||||||
@ -721,17 +721,18 @@
|
|||||||
%_(+>.$ ped.sat pen, mow :(weld new old mow))
|
%_(+>.$ ped.sat pen, mow :(weld new old mow))
|
||||||
::
|
::
|
||||||
++ drum :: raw dependencies
|
++ drum :: raw dependencies
|
||||||
|= dep=(set beam)
|
|= dep=@uvH
|
||||||
^+ +>
|
^+ +>
|
||||||
?> ?=(^ orm.sat)
|
?> ?=(^ orm.sat)
|
||||||
%- drug
|
%- drug
|
||||||
=+ ped=`(set (pair ship desk))`[[our %main] ~ ~]
|
=+ ped=`(set (pair ship desk))`[[our %main] ~ ~]
|
||||||
=+ mav=(~(tap by dep) ~)
|
ped
|
||||||
|- ^+ ped
|
::=+ mav=(~(tap by dep) ~)
|
||||||
?~ mav ped
|
::|- ^+ ped
|
||||||
?: =(r.i.mav [%da u.orm.sat])
|
::?~ mav ped
|
||||||
$(mav t.mav, ped (~(put in ped) p.i.mav q.i.mav))
|
::?: =(r.i.mav [%da u.orm.sat])
|
||||||
$(mav t.mav)
|
:: $(mav t.mav, ped (~(put in ped) p.i.mav q.i.mav))
|
||||||
|
::$(mav t.mav)
|
||||||
::
|
::
|
||||||
++ ford :: exec to ford
|
++ ford :: exec to ford
|
||||||
|= [pax=path kas=silk]
|
|= [pax=path kas=silk]
|
||||||
@ -775,54 +776,54 @@
|
|||||||
|= sih=sign
|
|= sih=sign
|
||||||
?> ?=(%f -.sih)
|
?> ?=(%f -.sih)
|
||||||
^- [(unit (list tank)) _+>]
|
^- [(unit (list tank)) _+>]
|
||||||
?- -.p.+.sih
|
?- -.q.+.sih
|
||||||
& :- ~
|
& :- ~
|
||||||
%- obey:(morn (slot 3 q.q.p.p.+.sih))
|
%- obey:(morn (slot 3 q.p.q.+.sih))
|
||||||
(slot 2 q.q.p.p.+.sih)
|
(slot 2 q.p.q.+.sih)
|
||||||
| [`p.p.+.sih (give %crud %mack-made p.p.+.sih)]
|
| [`p.q.+.sih (give %crud %mack-made p.q.+.sih)]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ meek :: apply peek
|
++ meek :: apply peek
|
||||||
|= sih=sign
|
|= sih=sign
|
||||||
^- [(unit cage) _+>]
|
^- [(unit cage) _+>]
|
||||||
?> ?=(%f -.sih)
|
?> ?=(%f -.sih)
|
||||||
?- -.p.+.sih
|
?- -.q.+.sih
|
||||||
& =+ vax=`vase`q.q.p.p.+.sih
|
& =+ vax=`vase`q.p.q.+.sih
|
||||||
?. &(?=(^ q.vax) ?=(@ -.q.vax))
|
?. &(?=(^ q.vax) ?=(@ -.q.vax))
|
||||||
[~ (give %crud %peek-lame *(list tank))]
|
[~ (give %crud %peek-lame *(list tank))]
|
||||||
:: ~> %slog.[0 (skol p:(slot 3 vax))]
|
:: ~> %slog.[0 (skol p:(slot 3 vax))]
|
||||||
:- `[((hard mark) -.q.vax) (slot 3 vax)]
|
:- `[((hard mark) -.q.vax) (slot 3 vax)]
|
||||||
+>.$
|
+>.$
|
||||||
| [~ (give %crud %meek-made p.p.+.sih)]
|
| [~ (give %crud %meek-made p.q.+.sih)]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ mick :: apply w/depends
|
++ mick :: apply w/depends
|
||||||
|= sih=sign
|
|= sih=sign
|
||||||
?> ?=(%f -.sih)
|
?> ?=(%f -.sih)
|
||||||
^- [(unit (set beam)) _+>]
|
^- [[p=? q=@uvH] _+>]
|
||||||
?- -.p.+.sih
|
:- [-.q.+.sih p.+.sih]
|
||||||
& :- `p.p.p.+.sih
|
?- -.q.+.sih
|
||||||
%- obey:(morn (slot 3 q.q.p.p.+.sih))
|
& %- obey:(morn (slot 3 q.p.q.+.sih))
|
||||||
(slot 2 q.q.p.p.+.sih)
|
(slot 2 q.p.q.+.sih)
|
||||||
| [~ (give %crud %mick-made p.p.+.sih)]
|
| (give %crud %mick-made p.q.+.sih)
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ muck :: apply part
|
++ muck :: apply part
|
||||||
|= sih=sign
|
|= sih=sign
|
||||||
^- [(unit (list tank)) _+>]
|
^- [(unit (list tank)) _+>]
|
||||||
?> ?=(%f -.sih)
|
?> ?=(%f -.sih)
|
||||||
?- -.p.+.sih
|
?- -.q.+.sih
|
||||||
& [~ (obey q.q.p.p.+.sih)]
|
& [~ (obey q.p.q.+.sih)]
|
||||||
| [`p.p.+.sih (give %crud %muck-made p.p.+.sih)]
|
| [`p.q.+.sih (give %crud %muck-made p.q.+.sih)]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ murk :: apply park
|
++ murk :: apply park
|
||||||
|= sih=sign
|
|= sih=sign
|
||||||
^- [(unit cage) _+>]
|
^- [(unit cage) _+>]
|
||||||
?> ?=(%f -.sih)
|
?> ?=(%f -.sih)
|
||||||
?- -.p.+.sih
|
?- -.q.+.sih
|
||||||
& [`q.p.p.+.sih +>.$]
|
& [`p.q.+.sih +>.$]
|
||||||
| [~ (give %crud %murk-made p.p.+.sih)]
|
| [~ (give %crud %murk-made p.q.+.sih)]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ more :: domestic take
|
++ more :: domestic take
|
||||||
@ -904,8 +905,8 @@
|
|||||||
::
|
::
|
||||||
%prep
|
%prep
|
||||||
=^ gad +>.$ (mick q.hin)
|
=^ gad +>.$ (mick q.hin)
|
||||||
?~ gad (drum ~)
|
?. p.gad (drum q.gad)
|
||||||
deal:(drum u.gad)
|
deal:(drum q.gad)
|
||||||
::
|
::
|
||||||
%pull
|
%pull
|
||||||
=^ gud +>.$ (mack q.hin)
|
=^ gud +>.$ (mack q.hin)
|
||||||
@ -1186,8 +1187,10 @@
|
|||||||
(goc p.q.kon /pock)
|
(goc p.q.kon /pock)
|
||||||
:(goc p.q.kon (rsh 3 ofs p.q.kon) /pock)
|
:(goc p.q.kon (rsh 3 ofs p.q.kon) /pock)
|
||||||
=+ hyp=?=(%pock (end 3 4 cog))
|
=+ hyp=?=(%pock (end 3 4 cog))
|
||||||
|
=+ ^- err=tape
|
||||||
|
?.(?=(?(%poke %pock) cog) <cog> "{<cog>} with mark {<p.q.kon>}")
|
||||||
?. (warm cog)
|
?. (warm cog)
|
||||||
(give(qic.sat ~) %mean ~ %poke-find-fail ~)
|
(give(qic.sat ~) %mean ~ %poke-find-fail leaf/err ~)
|
||||||
?> ?=(^ huv.sat)
|
?> ?=(^ huv.sat)
|
||||||
=+ ^= sam
|
=+ ^= sam
|
||||||
;: slop
|
;: slop
|
||||||
@ -1195,10 +1198,9 @@
|
|||||||
[[%atom %p] p.kon]
|
[[%atom %p] p.kon]
|
||||||
?.(hyp q.q.kon (slop !>(p.q.q.kon) q.q.kon))
|
?.(hyp q.q.kon (slop !>(p.q.q.kon) q.q.kon))
|
||||||
==
|
==
|
||||||
=+ err=?.(?=(?(%poke %pock) cog) <cog> "{<cog>} with mark <p.q.kon>")
|
|
||||||
:: ~& [%mess-poke cog]
|
:: ~& [%mess-poke cog]
|
||||||
%+ ford /s/poke
|
%+ ford /s/poke
|
||||||
:+ %dude leaf/"poking {err}"
|
:+ %dude leaf/err
|
||||||
[%call (harm cog (conf (core u.huv.sat))) (cove %$ sam)]
|
[%call (harm cog (conf (core u.huv.sat))) (cove %$ sam)]
|
||||||
::
|
::
|
||||||
%show
|
%show
|
||||||
|
|||||||
@ -2,11 +2,11 @@
|
|||||||
:::: /hook/gate/reload/helm/gun
|
:::: /hook/gate/reload/helm/gun
|
||||||
::
|
::
|
||||||
/? 314
|
/? 314
|
||||||
/- *console
|
/- *sole
|
||||||
::
|
::
|
||||||
::::
|
::::
|
||||||
!:
|
!:
|
||||||
|= $: [now=@da eny=@uvI bec=beak]
|
|= $: [now=@da eny=@uvI bec=beak]
|
||||||
[arg=(list term) ~]
|
[arg=(list term) ~]
|
||||||
==
|
==
|
||||||
(console-so %helm-reload arg)
|
(sole-so %helm-reload arg)
|
||||||
|
|||||||
@ -55,6 +55,7 @@
|
|||||||
[%ext p=@tas q=*] :: extended action
|
[%ext p=@tas q=*] :: extended action
|
||||||
[%fat p=torso q=speech] :: attachment
|
[%fat p=torso q=speech] :: attachment
|
||||||
:: [%inv p=station] :: invite to station
|
:: [%inv p=station] :: invite to station
|
||||||
|
:: [%url p=purl]
|
||||||
[%ire p=serial q=speech] :: in-reply-to
|
[%ire p=serial q=speech] :: in-reply-to
|
||||||
[%lin p=? q=@t] :: no=@, text line
|
[%lin p=? q=@t] :: no=@, text line
|
||||||
[%mor p=(list speech)] :: multiplex
|
[%mor p=(list speech)] :: multiplex
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user