sys:file-path-components   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

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


Back to Index