urbit/main/bin/cat.hoon
~hatteb-mitlyd 27dfbf10f0 improve :cat
2014-05-15 08:57:06 -07:00

17 lines
254 B
Plaintext

!:
:: /=main=/toy/cat/hoon
::
|= *
|= ape=(list path)
:_ ~
:_ ~
^- gift
:- %te
=- |- ^- (list ,@t)
?~(foz ~ (weld i.foz $(foz t.foz)))
^= foz
=| foz=(list (list ,@t))
|- ^+ foz
?~ ape ~
[(lore ((hard ,@) .^(%cx i.ape))) $(ape t.ape)]