[gimp/gimp-2-8] Fixed an error in the close-port function. Closes bug #719396.

[Kevin Cozens <kcozens src gnome org>]

commit f1677dea03fa3685887bdcb04f927158cbfeb15c
Author: Kevin Cozens <kevin ve3syb ca>
Date:   Mon Dec 2 20:17:05 2013 -0500

    Fixed an error in the close-port function. Closes bug #719396.

 plug-ins/script-fu/scripts/script-fu.init |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/plug-ins/script-fu/scripts/script-fu.init b/plug-ins/script-fu/scripts/script-fu.init
index 120ecc7..9f8c5a6 100644
--- a/plug-ins/script-fu/scripts/script-fu.init
+++ b/plug-ins/script-fu/scripts/script-fu.init
@@ -603,7 +603,7 @@
 
 (define (close-port p)
      (cond
-          ((input-output-port? p) (close-input-port (close-output-port p)))
+          ((input-output-port? p) (close-input-port p) (close-output-port p))
           ((input-port? p) (close-input-port p))
           ((output-port? p) (close-output-port p))
           (else (throw "Not a port" p))))