fixed preproc generator

pull/9/head
Matthew Butterick 11 years ago
parent 6183e58bcc
commit bc5e3beac3

@ -145,6 +145,7 @@
;; x might be either a preproc-source path or preproc-output path
(define source-path (complete-preproc-source-path x))
(define-values (source-dir source-name _) (split-path source-path))
(define output-path (complete-preproc-output-path x))
;; Three conditions under which we refresh:
@ -164,7 +165,8 @@
(file-name-from-path source-path)))
(store-refresh-in-mod-dates source-path)
;; discard output using open-output-nowhere
(parameterize ([current-output-port (open-output-nowhere)])
(parameterize ([current-directory source-dir]
[current-output-port (open-output-nowhere)])
(system command))
(regenerated-message output-path))
;; otherwise, skip file because there's no trigger for refresh

Loading…
Cancel
Save