chickadee » phricken » bind-fs

Utility function which 'mounts' fs ROOT on resource selector SEL with default filesystem handlers.

Handlers used are handle-sgm, handle-open-dir, handle-file.

(define (bind-fs sel root)
  (match-resource
   sel
   (any-handler (handle-sgm root)
                (handle-open-dir root)
                (handle-file root))))