remove non-working gen/plastic

This commit is contained in:
Anton Dyudin 2016-12-08 12:56:48 -08:00
parent 7b1603d8bb
commit a0301eb0f4

View File

@ -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)