summaryrefslogtreecommitdiffstats
path: root/byte.c
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:31 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:31 -0800
commitae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 (patch)
treeeee15e02ae016333546d3841712be591b2bcb06f /byte.c
parent302e3218b7d487539ec305bf23881a6ee7d5be99 (diff)
downloadscm-ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7.tar.gz
scm-ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7.zip
Import Upstream version 5e2upstream/5e2
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;