diff options
| author | Andy Wingo <wingo@pobox.com> | 2013-01-21 19:07:19 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-01-21 19:08:39 +0100 |
| commit | b3219085d92f6ab67347f251b651a65c3a7b6c1e (patch) | |
| tree | 027969c793c11534d0616a00a1b899dea6cfaead | |
| parent | f6fd2c03a5f8b910e666b91b73e94da9eb6d03a2 (diff) | |
| download | guile-b3219085d92f6ab67347f251b651a65c3a7b6c1e.tar.gz | |
read-and-compile closes input file after seeing EOF
* module/system/base/compile.scm (read-and-compile): Close the input
port after we read all of its data. Perhaps this cleans up some NFS
ghosts that David Pirotte was seeing.
| -rw-r--r-- | module/system/base/compile.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm index afcb55a72..1c3320ad2 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 @@ -200,6 +200,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. |