heading           809 src/error.c        char *heading, *p;
heading           812 src/error.c            heading = Scm_GetString(SCM_STRING(Scm_ConditionTypeName(e)));
heading           815 src/error.c            for (p=heading; *p; p++) {
heading           820 src/error.c                Scm_Printf(out, "*** %s: %A\n", heading, msg);
heading           822 src/error.c                Scm_Printf(out, "*** %s\n", heading);