[Guile-commits] 02/02: Check for closed port in 'port-encoding' and 'set-port-encoding!'.

[Mark H. Weaver]

mhw pushed a commit to branch stable-2.0
in repository guile.

commit 4f324684cc7672b39800bce0a373da10057dc3c6
Author: Mark H Weaver <address@hidden>
Date:   Fri Sep 9 07:34:52 2016 -0400

    Check for closed port in 'port-encoding' and 'set-port-encoding!'.
    
    * libguile/ports.c (scm_port_encoding, scm_set_port_encoding_x): Use
    SCM_VALIDATE_OPPORT.
---
 libguile/ports.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/ports.c b/libguile/ports.c
index 6705e8e..5739fd9 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -2600,7 +2600,7 @@ SCM_DEFINE (scm_port_encoding, "port-encoding", 1, 0, 0,
   scm_t_port *pt;
   const char *enc;
 
-  SCM_VALIDATE_PORT (1, port);
+  SCM_VALIDATE_OPPORT (1, port);
 
   pt = SCM_PTAB_ENTRY (port);
   enc = pt->encoding;
@@ -2622,7 +2622,7 @@ SCM_DEFINE (scm_set_port_encoding_x, 
"set-port-encoding!", 2, 0, 0,
 {
   char *enc_str;
 
-  SCM_VALIDATE_PORT (1, port);
+  SCM_VALIDATE_OPPORT (1, port);
   SCM_VALIDATE_STRING (2, enc);
 
   enc_str = scm_to_locale_string (enc);