diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-03-03 00:56:40 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-08-02 00:09:46 -0700 |
commit | 879f4fa041cfdefee655eb877f1a91f86a9c62b7 (patch) | |
tree | bc68ac058e5d0a7cf8e7815cbe1070fd60e75589 /record.c | |
parent | d13fcf5c0bd68f67059b2561c28c40b55e1117a3 (diff) | |
download | scm-879f4fa041cfdefee655eb877f1a91f86a9c62b7.tar.gz scm-879f4fa041cfdefee655eb877f1a91f86a9c62b7.zip |
New upstream version 5f2
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; } |