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