summaryrefslogtreecommitdiffstats
path: root/record.c
diff options
context:
space:
mode:
authorThomas Bushnell <tb@debian.org>2006-04-26 23:01:39 -0700
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:32 -0800
commit20402610bf881f67b22eb1600340d8284556ae56 (patch)
tree6a19e5a1b2cc22dccd1003787a70b751f7da4763 /record.c
parent5846f77421a975897a31d6fbf3f520aab385cea3 (diff)
parentae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 (diff)
downloadscm-20402610bf881f67b22eb1600340d8284556ae56.tar.gz
scm-20402610bf881f67b22eb1600340d8284556ae56.zip
Import Debian changes 5e2-1debian/5e2-1
scm (5e2-1) unstable; urgency=low * New upstream release. * Change to continue.h from version 5e1-2 repeated here.
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;
}