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

---
 record.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'record.c')

diff --git a/record.c b/record.c
index 5370daf..de72dce 100644
--- a/record.c
+++ b/record.c
@@ -125,7 +125,7 @@ SCM rec_constr(rtd, flds)
   RCLO_RTD(cclo) = rtd;
   i = ilength(RTD_FIELDS(rtd));
   RCONSTR_SIZE(cclo) = MAKINUM(i);
-  if UNBNDP(flds) {
+  if (UNBNDP(flds)) {
     indices = MAKE_REC_INDS(i);
     while (i--) REC_IND_SET(indices, i, i+1);
   }
@@ -199,7 +199,7 @@ SCM rec_constr1(args)
    A cclo with 2 env elts -- rtd and field-number. */
 static SCM makrecclo(proc, rtd, field, what)
      SCM proc, rtd, field;
-     char *what;
+     const char *what;
 {
   SCM flst;
   SCM cclo = makcclo(proc, 3L);
@@ -286,7 +286,7 @@ static SCM markrec(ptr)
 {
   sizet i;
   for (i = NUMDIGS(ptr); --i;)
-    if NIMP(VELTS(ptr)[i]) gc_mark(VELTS(ptr)[i]);
+    if (NIMP(VELTS(ptr)[i])) gc_mark(VELTS(ptr)[i]);
   return REC_RTD(ptr);
 }
 static sizet freerec(ptr)
@@ -302,7 +302,7 @@ static int recprin1(exp, port, writing)
   SCM names, printer = RTD_PRINTER(REC_RTD(exp));
   SCM argv[3];
   sizet i;
-  if NIMP(printer) {
+  if (NIMP(printer)) {
     argv[0] = exp;
     argv[1] = port;
     argv[2] = writing ? BOOL_T : BOOL_F;
@@ -369,7 +369,7 @@ SCM recequal(rec0, rec1)
   if (i != NUMDIGS(rec1)) return BOOL_F;
   if (REC_RTD(rec0) != REC_RTD(rec1)) return BOOL_F;
   while(--i)
-    if FALSEP(equal(VELTS(rec0)[i], VELTS(rec1)[i]))
+    if (FALSEP(equal(VELTS(rec0)[i], VELTS(rec1)[i])))
       return BOOL_F;
   return BOOL_T;
 }
-- 
cgit v1.2.3