diff options
| author | Andy Wingo <wingo@pobox.com> | 2017-03-01 19:52:17 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-03-01 19:52:17 +0100 |
| commit | 25652ff84c7949427cdda7395a44bab9a0392c4b (patch) | |
| tree | 3f00a2dca265ffdf4bb8ae839a821d4c9e1a7d4a /libguile | |
| parent | b56b944920c2a1789ae1568bb146fa71ceaa92b9 (diff) | |
%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.
Diffstat (limited to 'libguile')
| -rw-r--r-- | libguile/ports.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/ports.c b/libguile/ports.c index 3d5da3d9e..1be4a3778 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)); |