summaryrefslogtreecommitdiff
path: root/libguile/vports.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-04 12:13:41 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-04 12:13:41 +0000
commit4260a7fced0ab02e1bb284f11f1e1b645975a713 (patch)
tree8a1b379a2af38db99d39905b46b62044d732459c /libguile/vports.c
parent304b56da60ffa89989cf2943b046058083c76a3c (diff)
downloadguile-4260a7fced0ab02e1bb284f11f1e1b645975a713.tar.gz
Lots of fixes with respect to strict typing.
Diffstat (limited to 'libguile/vports.c')
-rw-r--r--libguile/vports.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/vports.c b/libguile/vports.c
index fb3a6fb7a..4490d8fd5 100644
--- a/libguile/vports.c
+++ b/libguile/vports.c
@@ -84,7 +84,7 @@ sf_flush (SCM port)
{
SCM f = SCM_VELTS (stream)[2];
- if (f != SCM_BOOL_F)
+ if (!SCM_FALSEP (f))
scm_apply (f, SCM_EOL, SCM_EOL);
}
}
@@ -131,11 +131,11 @@ sf_close (SCM port)
{
SCM p = SCM_PACK (SCM_STREAM (port));
SCM f = SCM_VELTS (p)[4];
- if (SCM_BOOL_F == f)
+ if (SCM_FALSEP (f))
return 0;
f = scm_apply (f, SCM_EOL, SCM_EOL);
errno = 0;
- return SCM_BOOL_F == f ? EOF : 0;
+ return SCM_FALSEP (f) ? EOF : 0;
}
@@ -188,7 +188,7 @@ SCM_DEFINE (scm_make_soft_port, "make-soft-port", 2, 0, 0,
SCM_DEFER_INTS;
pt = scm_add_to_port_table (z);
scm_port_non_buffer (pt);
- SCM_SETCAR (z, scm_tc16_sfport | scm_mode_bits (SCM_ROCHARS (modes)));
+ SCM_SET_CELL_TYPE (z, scm_tc16_sfport | scm_mode_bits (SCM_ROCHARS (modes)));
SCM_SETPTAB_ENTRY (z, pt);
SCM_SETSTREAM (z, SCM_UNPACK (pv));
SCM_ALLOW_INTS;