self-perpetuation ftw

This commit is contained in:
Philip C Monk 2015-01-14 19:43:39 -05:00
parent c31d9c6d3b
commit 5b97583293
3 changed files with 3 additions and 3 deletions

View File

@ -6005,7 +6005,7 @@
:: ::
++ reck :: parse hoon file ++ reck :: parse hoon file
|= bon=path |= bon=path
(rain bon ((hard ,@t) .^(%cx (weld bon `path`[%hoon ~])))) (rain bon ((hard ,@t) +.+.+:.^(%cx (weld bon `path`[%hoon ~]))))
:: ::
++ seed :: hoon/hoon core vase ++ seed :: hoon/hoon core vase
^- vase ^- vase

View File

@ -8,7 +8,7 @@
|= nam=@tas |= nam=@tas
=+ tip=(end 3 1 nam) =+ tip=(end 3 1 nam)
=+ pax=[(scot %p our.hid) %arvo (scot %da lat.hid) nam %hoon ~] =+ pax=[(scot %p our.hid) %arvo (scot %da lat.hid) nam %hoon ~]
[ost %give %veer ?:(=('z' tip) %$ tip) pax (,@ .^(%cx pax))] [ost %give %veer ?:(=('z' tip) %$ tip) pax (,@ +.+.+:.^(%cx pax))]
:- [ost %give %nice ~] :- [ost %give %nice ~]
%+ turn (~(tap by sup.hid)) %+ turn (~(tap by sup.hid))
|= [ost=bone *] |= [ost=bone *]

View File

@ -25,7 +25,7 @@
|- ^+ all |- ^+ all
?~ vay all ?~ vay all
=+ pax=(weld top `path`[q.i.vay ~]) =+ pax=(weld top `path`[q.i.vay ~])
=+ txt=((hard ,@) .^(%cx (weld pax `path`[%hoon ~]))) =+ txt=((hard ,@) +.+.+:.^(%cx (weld pax `path`[%hoon ~])))
=+ sam=[lat.hid `ovum`[[%gold ~] [%veer p.i.vay pax txt]]] =+ sam=[lat.hid `ovum`[[%gold ~] [%veer p.i.vay pax txt]]]
~& [%solid-veer i.vay] ~& [%solid-veer i.vay]
=+ gat=.*(all .*(all [0 42])) =+ gat=.*(all .*(all [0 42]))