remove dead code

pkgs/s6-rc-up-tree/s6-rc-up-tree.fnl

@@ -1,5 +1,4 @@
 (local { : opendir : readdir } (require :lualinux))
-(local { : view } (require :fennel))
 
 (fn fail [err]
   (print "ERROR" err)
@@ -23,9 +22,6 @@
             (values filename filename)))
     (nil err) (fail (.. "can't open " dir " :" err))))
 
-(fn stopped-services []
-  (popen (.. "s6-rc -da list")))
-
 (fn stopped-controlled-services [dir]
   (let [controlled (controlled-services dir)]
     (with-popen [h (.. "s6-rc -b -da list")]