aboutsummaryrefslogtreecommitdiffstats
path: root/record.c
diff options
context:
space:
mode:
Diffstat (limited to 'record.c')
-rw-r--r--record.c22
1 files changed, 11 insertions, 11 deletions
diff --git a/record.c b/record.c
index de72dce..30fa677 100644
--- a/record.c
+++ b/record.c
@@ -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