summaryrefslogtreecommitdiff
path: root/module/system/base/compile.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-01-26 22:09:06 +0100
committerAndy Wingo <wingo@pobox.com>2011-01-26 22:09:06 +0100
commit2183d66e134a5512b5b4993cb5255c1c1308dc47 (patch)
treee1d20c56a07558ba77eb4306a0f610f5d87ba9ad /module/system/base/compile.scm
parent177db8f1332329bb4e88f30191641e146ff3fc82 (diff)
downloadguile-2183d66e134a5512b5b4993cb5255c1c1308dc47.tar.gz
more sensible error if compiled-file-name returns false in compile-file
* module/system/base/compile.scm (compile-file): Error if no output-file is given and compiled-file-name returns false.
Diffstat (limited to 'module/system/base/compile.scm')
-rw-r--r--module/system/base/compile.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index 35dc0b197..b4dfbcd9d 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -117,7 +117,9 @@
(opts '())
(canonicalization 'relative))
(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))
(enc (file-encoding in)))
;; Choose the input encoding deterministically.