diff options
| author | Andy Wingo <wingo@pobox.com> | 2013-08-20 22:06:46 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-08-24 15:27:57 +0200 |
| commit | 72bb47ae4cc2f15f88173ff29b0b1011ac68279a (patch) | |
| tree | 587707f320a6d5ebf0563d20f88187858ac9208b /module/system/base | |
| parent | 84cc4127bd765719b2c502de4127a54867355ad5 (diff) | |
compile-file adds #:to-disk? #t to opts
* module/system/base/compile.scm (compile-file): Pass #:to-disk? as an
option to indicate that the result will be being loaded from disk.
Perhaps a linker might want to page-align in that case.
* module/language/elisp/compile-tree-il.scm (process-options!): Accept
and ignore the #:to-file compiler option.
Diffstat (limited to 'module/system/base')
| -rw-r--r-- | module/system/base/compile.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm index c522b74b5..82d75c778 100644 --- a/module/system/base/compile.scm +++ b/module/system/base/compile.scm @@ -150,7 +150,8 @@ (call-with-output-file/atomic comp (lambda (port) ((language-printer (ensure-language to)) - (read-and-compile in #:env env #:from from #:to to #:opts opts) + (read-and-compile in #:env env #:from from #:to to #:opts + (cons* #:to-file? #t opts)) port)) file) comp))) |