diff options
Diffstat (limited to 'record.c')
| -rw-r--r-- | record.c | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -133,7 +133,7 @@ SCM rec_constr(rtd, flds) i = ilength(flds); ASRTER(i>=0, flds, ARG2, s_rec_constr); indices = MAKE_REC_INDS(i); - for(i = 0; NIMP(flds); i++, flds = CDR(flds)) { + for (i = 0; NIMP(flds); i++, flds = CDR(flds)) { fld = CAR(flds); ASRTER(NIMP(fld) && SYMBOLP(fld), fld, ARG2, s_rec_constr); flst = RTD_FIELDS(rtd); @@ -319,26 +319,26 @@ static int recprin1(exp, port, writing) } names = RTD_FIELDS(REC_RTD(exp)); lputs("#s(", port); - iprin1(RTD_NAME(REC_RTD(exp)), port, 0); + scm_iprin1(RTD_NAME(REC_RTD(exp)), port, 0); if (writing) { lputc(':', port); - intprint(((long)REC_RTD(exp))>>1, 16, port); + scm_intprint(((long)REC_RTD(exp))>>1, 16, port); } for (i = 1; i < NUMDIGS(exp); i++) { lputc(' ', port); - iprin1(CAR(names), port, 0); + scm_iprin1(CAR(names), port, 0); names = CDR(names); lputc(' ', port); - iprin1(VELTS(exp)[i], port, writing); + scm_iprin1(VELTS(exp)[i], port, writing); } lputc(')', port); /* lputs("#<record <", port); - iprin1(RTD_NAME(REC_RTD(exp)), port, 0); + scm_iprin1(RTD_NAME(REC_RTD(exp)), port, 0); lputc('>', port); - for(i = 1; i < NUMDIGS(exp); i++) { + for (i = 1; i < NUMDIGS(exp); i++) { lputc(' ', port); - iprin1(VELTS(exp)[i], port, writing); + scm_iprin1(VELTS(exp)[i], port, writing); } lputc('>', port); */ @@ -350,11 +350,11 @@ SCM rec_rtdprin1(rtd, port, writing_p) SCM rtd, port, writing_p; { lputs("#s(record-type ", port); - iprin1(RTD_NAME(rtd), port, 0); + scm_iprin1(RTD_NAME(rtd), port, 0); lputc(':', port); - intprint(((long)rtd)>>1, 16, port); + scm_intprint(((long)rtd)>>1, 16, port); lputs(" fields ", port); - iprin1(RTD_FIELDS(rtd), port, 0); + scm_iprin1(RTD_FIELDS(rtd), port, 0); if (NIMP(RTD_PRINTER(rtd))) lputs(" P)", port); else |