gen: make |ota useful again
As an alias for installing into the base desk. Defaults to the remote
ship's %kids desk if no desk is specified.
::
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
- [arg=?(~ [%disable ~] [her=@p sud=@tas ~]) ~]
+ arg=?([%disable ~] [her=@p sud=?(~ [@tas ~])])
+ ~
==
-?~ arg
- :- %kiln-ota-info ~
-:- %kiln-ota
+:- %kiln-install
?: ?=([%disable ~] arg)
- ~
-`[her sud]:arg
+ [%base p.bec %base]
+:+ %base her.arg
+?@(sud.arg %kids -.sud.arg)
