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;