Import Upstream version 5e2upstream/5e2

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;