diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-03-03 00:56:40 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-03-03 00:56:40 -0800 |
commit | fd5f104f287427fee885583bc398c137674e6af0 (patch) | |
tree | 151d1875fdbbc52fd992f53ee197f7070c5f73d1 /record.c | |
parent | 90889a692076f2c62486607d0354e0fca52364bc (diff) | |
download | scm-fd5f104f287427fee885583bc398c137674e6af0.tar.gz scm-fd5f104f287427fee885583bc398c137674e6af0.zip |
New upstream version 5f2upstream/5f2upstream
Diffstat (limited to 'record.c')
-rwxr-xr-x[-rw-r--r--] | record.c | 29 |
1 files changed, 11 insertions, 18 deletions
@@ -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; } |