mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-24 07:26:51 +03:00
self-perpetuation ftw
This commit is contained in:
parent
c31d9c6d3b
commit
5b97583293
@ -6005,7 +6005,7 @@
|
||||
::
|
||||
++ reck :: parse hoon file
|
||||
|= 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
|
||||
^- vase
|
||||
|
@ -8,7 +8,7 @@
|
||||
|= nam=@tas
|
||||
=+ tip=(end 3 1 nam)
|
||||
=+ 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 ~]
|
||||
%+ turn (~(tap by sup.hid))
|
||||
|= [ost=bone *]
|
||||
|
@ -25,7 +25,7 @@
|
||||
|- ^+ all
|
||||
?~ vay all
|
||||
=+ 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]]]
|
||||
~& [%solid-veer i.vay]
|
||||
=+ gat=.*(all .*(all [0 42]))
|
||||
|
Loading…
Reference in New Issue
Block a user