summaryrefslogtreecommitdiffstats
path: root/byte.c
diff options
context:
space:
mode:
Diffstat (limited to 'byte.c')
-rw-r--r--byte.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/byte.c b/byte.c
index 457d878..416c78f 100644
--- a/byte.c
+++ b/byte.c
@@ -131,7 +131,7 @@ SCM scm_write_byte(chr, port)
SCM chr, port;
{
int k = INUM(chr);
- if UNBNDP(port) port = cur_outp;
+ if (UNBNDP(port)) port = cur_outp;
else ASRTER(NIMP(port) && OPOUTPORTP(port), port, ARG2, s_write_byte);
ASRTER(INUMP(chr) && 0 <= k && k <= 255, chr, ARG1, s_write_byte);
lputc(k, port);
@@ -142,7 +142,7 @@ SCM scm_read_byte(port)
SCM port;
{
int c;
- if UNBNDP(port) port = cur_inp;
+ if (UNBNDP(port)) port = cur_inp;
ASRTER(NIMP(port) && OPINPORTP(port), port, ARG1, s_read_byte);
c = lgetc(port);
if (EOF==c) return EOF_VAL;
@@ -173,7 +173,7 @@ SCM scm_substring_read(sstr, start, args)
long ans = 0;
/* An ungetc before an fread will not work on some systems if setbuf(0),
so we read one element char by char. */
- if CRDYP(port) {
+ if (CRDYP(port)) {
CHARS(sstr)[start] = lgetc(port);
start += 1;
len -= 1;