[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Guile build failure

From: Andy Wingo
Subject: Re: Guile build failure
Date: Mon, 21 Jan 2013 12:39:59 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2 (gnu/linux)

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.


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, 
 ;;; 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)
+      (close-port in)
 (define* (compile-and-load file #:key (from 'scheme) (to 'value)
@@ -200,6 +201,7 @@
           (let ((x ((language-reader (current-language)) port cenv)))
              ((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.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]