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

This commit is contained in:
Kevin Cozens 2013-12-02 19:46:18 -05:00
parent 4e7bfb4e81
commit a7e24a64b7
1 changed files with 1 additions and 1 deletions

View File

@ -606,7 +606,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))))