(define sys:file-path-components (lambda (file-path) (let ((base (regex:matched file-path "(.*)/(.*)\\.(.*)"))) (and (not (null? base)) (cdr base)))))