From 710a97992705d67c3ded0d4b270c5978ce29b11f Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:37 -0800
Subject: Import Upstream version 5e4

---
 record.c | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'record.c')

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
-- 
cgit v1.2.3