From ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:31 -0800
Subject: Import Upstream version 5e2

---
 byte.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'byte.c')

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;
-- 
cgit v1.2.3