Public make-cont-folder

* module/language/cps.scm (make-cont-folder): Add global? parameter, and
  make public.
  (fold-conts): Adapt.
  (fold-local-conts): Use make-cont-folder, and take a function instead
  of a continuation.

* module/language/cps/arities.scm (fix-clause-arities, fix-arities*):
* module/language/cps/compile-bytecode.scm (collect-conts):
* module/language/cps/elide-values.scm (elide-values*): Adapt to
  fold-local-conts change.

module/language/cps/compile-bytecode.scm

@@ -91,9 +91,7 @@
          (when idx
            (vector-set! contv idx cont))))
      '()
-     (match f
-       (($ $fun src meta free entry)
-        entry)))
+     f)
     contv))
 
 (define (compile-fun f asm)