mescc: Support -o-.
* module/mescc/mescc.scm (GUILE-with-output-to-file): New variable. (with-output-to-file): Use it in redefined function.
This commit is contained in:
parent
0a47b152b2
commit
7318e9079e
|
@ -32,6 +32,11 @@
|
||||||
mescc:assemble
|
mescc:assemble
|
||||||
mescc:link))
|
mescc:link))
|
||||||
|
|
||||||
|
(define GUILE-with-output-to-file with-output-to-file)
|
||||||
|
(define (with-output-to-file file-name thunk)
|
||||||
|
(if (equal? file-name "-") (thunk)
|
||||||
|
(GUILE-with-output-to-file file-name thunk)))
|
||||||
|
|
||||||
(define (mescc:preprocess options)
|
(define (mescc:preprocess options)
|
||||||
(let* ((defines (reverse (filter-map (multi-opt 'define) options)))
|
(let* ((defines (reverse (filter-map (multi-opt 'define) options)))
|
||||||
(includes (reverse (filter-map (multi-opt 'include) options)))
|
(includes (reverse (filter-map (multi-opt 'include) options)))
|
||||||
|
|
Loading…
Reference in New Issue