note to self

pull/9/head
Matthew Butterick 11 years ago
parent 8b13215ac7
commit 2fe9d8029e

@ -140,6 +140,7 @@
(pathish? . -> . path?) (pathish? . -> . path?)
(->path (if (stem-source? x) x (add-ext x file-ext)))) (->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) (define+provide/contract (->stem-source+output-paths path)
(pathish? . -> . (values path? path?)) (pathish? . -> . (values path? path?))
(values (->complete-path (->stem-source-path path)) (values (->complete-path (->stem-source-path path))

Loading…
Cancel
Save