mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

more sensible error if compiled-file-name returns false in compile-file

Browse source 
* module/system/base/compile.scm (compile-file): Error if no output-file
  is given and compiled-file-name returns false.
This commit is contained in:
Andy Wingo 2011-01-26 22:09:06 +01:00
parent 177db8f133
commit 2183d66e13
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/base/compile.scm
View file

@ -117,7 +117,9 @@
(opts '()) (opts '())
(canonicalization 'relative)) (canonicalization 'relative))
(with-fluids ((%file-port-name-canonicalization canonicalization)) (with-fluids ((%file-port-name-canonicalization canonicalization))
(let* ((comp (or output-file (compiled-file-name file))) (let* ((comp (or output-file (compiled-file-name file)
(error "failed to create path for autocompiled file"
file)))
(in (open-input-file file)) (in (open-input-file file))
(enc (file-encoding in))) (enc (file-encoding in)))
;; Choose the input encoding deterministically. ;; Choose the input encoding deterministically.