-jam-all-desks: prevent recursive tempfile cancer

pkg/arvo/lib/desk-jam.hoon

@@ -4,10 +4,17 @@
   |=  [our=ship =desk now=@da]
   ~>  %slog.0^leaf/"jamming desk {<desk>}"
   %-  jam
+  %-  ?:(=(%base desk) remove-tmp-dir same)
   %-  ankh-to-map
   =<  ank
   .^(dome:clay %cv /(scot %p our)/[desk]/(scot %da now))
 ::
+++  remove-tmp-dir
+  |=  fiz=(map path page)
+  ^-  (map path page)
+  %-  ~(gas by *(map path page))
+  (skip ~(tap by fiz) |=([p=path *] ?=([%tmp *] p)))
+::
 ++  ankh-to-map
   =|  res=(map path page)
   =|  pax=path