1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 03:54:12 +02:00

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.
This commit is contained in:
Andy Wingo 2013-08-20 22:06:46 +02:00
parent 84cc4127bd
commit 72bb47ae4c
2 changed files with 3 additions and 2 deletions

View file

@ -792,7 +792,7 @@
(let ((key (car opt))
(value (cadr opt)))
(case key
((#:warnings) ; ignore
((#:warnings #:to-file?) ; ignore
#f)
(else (report-error #f
"Invalid compiler option"