summaryrefslogtreecommitdiff
path: root/libguile/ports.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/ports.c')
-rw-r--r--libguile/ports.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index f845a4627..40112562a 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -89,7 +89,7 @@ SCM
scm_markstream (SCM ptr)
{
int openp;
- openp = SCM_CARW (ptr) & SCM_OPN;
+ openp = SCM_CARBITS (ptr) & SCM_OPN;
if (openp)
return SCM_STREAM (ptr);
else
@@ -568,15 +568,15 @@ SCM_DEFINE (scm_port_mode, "port-mode", 1, 0, 0,
port = SCM_COERCE_OUTPORT (port);
SCM_VALIDATE_OPPORT (1,port);
- if (SCM_CARW (port) & SCM_RDNG) {
- if (SCM_CARW (port) & SCM_WRTNG)
+ if (SCM_CARBITS (port) & SCM_RDNG) {
+ if (SCM_CARBITS (port) & SCM_WRTNG)
strcpy (modes, "r+");
else
strcpy (modes, "r");
}
- else if (SCM_CARW (port) & SCM_WRTNG)
+ else if (SCM_CARBITS (port) & SCM_WRTNG)
strcpy (modes, "w");
- if (SCM_CARW (port) & SCM_BUF0)
+ if (SCM_CARBITS (port) & SCM_BUF0)
strcat (modes, "0");
return scm_makfromstr (modes, strlen (modes), 0);
}
@@ -1252,11 +1252,11 @@ scm_print_port_mode (SCM exp, SCM port)
{
scm_puts (SCM_CLOSEDP (exp)
? "closed: "
- : (SCM_RDNG & SCM_CARW (exp)
- ? (SCM_WRTNG & SCM_CARW (exp)
+ : (SCM_RDNG & SCM_CARBITS (exp)
+ ? (SCM_WRTNG & SCM_CARBITS (exp)
? "input-output: "
: "input: ")
- : (SCM_WRTNG & SCM_CARW (exp)
+ : (SCM_WRTNG & SCM_CARBITS (exp)
? "output: "
: "bogus: ")),
port);