mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-21 15:38:59 +03:00
remove non-working gen/plastic
This commit is contained in:
parent
7b1603d8bb
commit
a0301eb0f4
@ -1,49 +0,0 @@
|
||||
::
|
||||
:::: /hoon/plastic/gen
|
||||
::
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
::
|
||||
:- %say
|
||||
|= $: {now/@da eny/@uvJ bec/beak}
|
||||
{{who/@p $~} $~}
|
||||
==
|
||||
:- %noun
|
||||
=+ one
|
||||
!= => ~
|
||||
|
||||
|
||||
|
||||
=+ top=`path`/(scot %p p.bec)/[q.bec]/(scot %da now)/arvo
|
||||
=+ pax=`path`(weld top `path`[%hoon ~])
|
||||
~& %plastic-start
|
||||
=+ gen=(reck pax)
|
||||
~& %plastic-parsed
|
||||
=+ ken=q:(~(mint ut %noun) %noun gen)
|
||||
~& %plastic-compiled
|
||||
:- ken
|
||||
=+ all=.*(0 ken)
|
||||
=+ ^= vent
|
||||
|= {abr/term nam/term}
|
||||
=+ pax=(weld top `path`[nam ~])
|
||||
=+ txt=.^(@ %cx (weld pax `path`[%hoon ~]))
|
||||
`ovum`[[%vane nam ~] [%veer abr pax txt]]
|
||||
=+ ^= evo
|
||||
^- (list ovum)
|
||||
:~ (vent %$ %zuse)
|
||||
[[%name (scot %p who) ~] [%veal who]]
|
||||
(vent %c %clay)
|
||||
(vent %g %gall)
|
||||
(vent %f %ford)
|
||||
(vent %a %ames)
|
||||
(vent %b %behn)
|
||||
(vent %d %dill)
|
||||
(vent %e %eyre)
|
||||
==
|
||||
|- ^+ all
|
||||
?~ evo all
|
||||
~& [%plastic-step p.i.evo]
|
||||
=+ gat=.*(all .*(all [0 42]))
|
||||
=+ nex=+:.*([-.gat [[now i.evo] +>.gat]] -.gat)
|
||||
$(evo t.evo, all nex)
|
Loading…
Reference in New Issue
Block a user