+help %hood

This commit is contained in:
Anton Dyudin 2016-10-21 17:56:24 -07:00
parent f66a802f84
commit b67f5b46a0

View File

@ -33,9 +33,10 @@
--
::
:- %say
|= {{now/time @ our/ship ^} $~ $~}
|= {{now/time @ our/ship ^} typ/$@($~ {p/term $~}) $~}
=/ pax/path /(scot %p our)/home/(scot %da now)/gen :: XX hardcoded
=+ len=(lent pax)
=. pax ?~(typ pax (welp pax /[p.typ]))
:- %tang %- flop
=+ ark=.^(arch cy+pax)
|- ^- tang