string_putc      1207 src/string.c                   string_putc(*cp++, port, SCM_STRING_BODY_INCOMPLETE_P(b));
string_putc      1217 src/string.c                   string_putc(ch, port, FALSE);