[Guile-commits] GNU Guile branch, master, updated. release_1-9-14-102-g2183d66

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=2183d66e134a5512b5b4993cb5255c1c1308dc47

The branch, master has been updated
       via  2183d66e134a5512b5b4993cb5255c1c1308dc47 (commit)
      from  177db8f1332329bb4e88f30191641e146ff3fc82 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 2183d66e134a5512b5b4993cb5255c1c1308dc47
Author: Andy Wingo <address@hidden>
Date:   Wed Jan 26 22:09:06 2011 +0100

    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.

-----------------------------------------------------------------------

Summary of changes:
 module/system/base/compile.scm |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index 35dc0b1..b4dfbcd 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.


hooks/post-receive
-- 
GNU Guile