[Guile-commits] 02/06: %port-encoding requires an open port

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 25652ff84c7949427cdda7395a44bab9a0392c4b
Author: Andy Wingo <wi...@pobox.com>
Date:   Wed Mar 1 19:52:17 2017 +0100

    %port-encoding requires an open port
    
    * libguile/ports.c (scm_sys_port_encoding)
      (scm_sys_set_port_encoding_x): Require an open port, to match 2.0
      behavior.
---
 libguile/ports.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/ports.c b/libguile/ports.c
index 3d5da3d..1be4a37 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -1211,7 +1211,7 @@ SCM_DEFINE (scm_sys_port_encoding, "%port-encoding", 1, 
0, 0,
            "uses to interpret its input and output.\n")
 #define FUNC_NAME s_scm_sys_port_encoding
 {
-  SCM_VALIDATE_PORT (1, port);
+  SCM_VALIDATE_OPPORT (1, port);
 
   return SCM_PORT (port)->encoding;
 }
@@ -1232,7 +1232,7 @@ SCM_DEFINE (scm_sys_set_port_encoding_x, 
"%set-port-encoding!", 2, 0, 0,
            "and this procedure can be used to modify that encoding.\n")
 #define FUNC_NAME s_scm_sys_set_port_encoding_x
 {
-  SCM_VALIDATE_PORT (1, port);
+  SCM_VALIDATE_OPPORT (1, port);
   SCM_VALIDATE_SYMBOL (2, enc);
 
   scm_i_set_port_encoding_x (port, scm_i_symbol_chars (enc));