colcnt            699 src/write.c            u_int num_digits, colcnt;
colcnt            709 src/write.c            colcnt = num_digits % commainterval;
colcnt            710 src/write.c            if (colcnt != 0) Scm_DStringPutz(&tmpout, ptr, colcnt);
colcnt            711 src/write.c            while (colcnt < num_digits) {
colcnt            712 src/write.c                if (colcnt != 0) Scm_DStringPutc(&tmpout, commachar);
colcnt            713 src/write.c                Scm_DStringPutz(&tmpout, ptr+colcnt, commainterval);
colcnt            714 src/write.c                colcnt += commainterval;