Re: Guile build failure

[Andy Wingo]

Hi David,

On Mon 21 Jan 2013 11:47, address@hidden (Ludovic Courtès) writes:

> ‘load.test’ uses ‘compile-file’, and it seems that ‘compile-file’ does
> an ‘open-input-file’ with no corresponding ‘close-port’.  That may be
> the problem.

Can you try the following patch?  ./check-guile load.test on your NFS
machine should do it.

Andy

diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index afcb55a..d6a57e6 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -1,6 +1,6 @@
 ;;; High-level compiler interface
 
-;; Copyright (C) 2001, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013 Free Software Foundation, 
Inc.
 
 ;;; This library is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU Lesser General Public
@@ -150,6 +150,7 @@
            (read-and-compile in #:env env #:from from #:to to #:opts opts)
            port))
         file)
+      (close-port in)
       comp)))
 
 (define* (compile-and-load file #:key (from 'scheme) (to 'value)
@@ -200,6 +201,7 @@
           (let ((x ((language-reader (current-language)) port cenv)))
             (cond
              ((eof-object? x)
+              (close-port port)
               (compile ((language-joiner joint) (reverse exps) env)
                        #:from joint #:to to
                        ;; env can be false if no expressions were read.

-- 
http://wingolog.org/