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));