ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-24 15:34:10 +03:00
Code Issues Packages Projects Releases Wiki Activity

self-perpetuation ftw

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/hoon.hoon
View File

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

2
main/app/reload/core.hook
View File

@ -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 *]

2
main/app/solid/core.hook
View File

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