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