diff options
Diffstat (limited to 'record.c')
| -rw-r--r-- | record.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -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; } |