[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/02: Check for closed port in 'port-encoding' and 'set
From: |
Mark H. Weaver |
Subject: |
[Guile-commits] 02/02: Check for closed port in 'port-encoding' and 'set-port-encoding!'. |
Date: |
Fri, 9 Sep 2016 12:23:13 +0000 (UTC) |
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);