summaryrefslogtreecommitdiffstats
path: root/record.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 /record.c
parent302e3218b7d487539ec305bf23881a6ee7d5be99 (diff)
downloadscm-ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7.tar.gz
scm-ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7.zip
Import Upstream version 5e2upstream/5e2
Diffstat (limited to 'record.c')
-rw-r--r--record.c10
1 files changed, 5 insertions, 5 deletions
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;
}