diff --git a/file-tools.rkt b/file-tools.rkt index dff3313..b8dea56 100644 --- a/file-tools.rkt +++ b/file-tools.rkt @@ -140,6 +140,7 @@ (pathish? . -> . path?) (->path (if (stem-source? x) x (add-ext x file-ext)))) + ;; coerce either a source or output file to both (define+provide/contract (->stem-source+output-paths path) (pathish? . -> . (values path? path?)) (values (->complete-path (->stem-source-path path))