New upstream version 5f2

1 files changed, 11 insertions, 18 deletions

diff --git a/record.c b/record.c
index 55f8f47..9311261 100644..100755
--- a/record.c
+++ b/record.c
@@ -277,7 +277,6 @@ static int recprin1(exp, port, writing)
 {
   SCM names, printer = RTD_PRINTER(REC_RTD(exp));
   SCM argv[3];
-  sizet i;
   if (NIMP(printer)) {
     argv[0] = exp;
     argv[1] = port;
@@ -298,26 +297,20 @@ static int recprin1(exp, port, writing)
   scm_iprin1(RTD_NAME(REC_RTD(exp)), port, 0);
   if (writing) {
     lputc(':', port);
-    scm_intprint(((long)REC_RTD(exp))>>1, 16, port);
-  }
-  for (i = 1; i < NUMDIGS(exp); i++) {
-    lputc(' ', port);
-    scm_iprin1(CAR(names), port, 0);
-    names = CDR(names);
-    lputc(' ', port);
-    scm_iprin1(VELTS(exp)[i], port, writing);
+    scm_intprint(((long)(exp))>>1, 16, port);
   }
-  lputc(')', port);
-/*
-  lputs("#<record <", port);
-  scm_iprin1(RTD_NAME(REC_RTD(exp)), port, 0);
-  lputc('>', port);
-  for (i = 1; i < NUMDIGS(exp); i++) {
+#ifdef SCM_SHOW_RECORD_FIELDS
+  {
+    sizet i;
+    for (i = 1; i < NUMDIGS(exp); i++) {
+      lputc(' ', port);
+      scm_iprin1(CAR(names), port, 0);
+      names = CDR(names);
       lputc(' ', port);
       scm_iprin1(VELTS(exp)[i], port, writing);
-    }
-  lputc('>', port);
-*/
+    }}
+#endif
+  lputc(')', port);
   return 1;
 }