mirror of https://github.com/GNOME/gimp.git
Fixed an error in the close-port function. Closes bug #719396.
This commit is contained in:
parent
4e7bfb4e81
commit
a7e24a64b7
|
@ -606,7 +606,7 @@
|
||||||
|
|
||||||
(define (close-port p)
|
(define (close-port p)
|
||||||
(cond
|
(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))
|
((input-port? p) (close-input-port p))
|
||||||
((output-port? p) (close-output-port p))
|
((output-port? p) (close-output-port p))
|
||||||
(else (throw "Not a port" p))))
|
(else (throw "Not a port" p))))
|
||||||
|
|
Loading…
Reference in New Issue