scheme: add missing breaks

This commit is contained in:
Mikael Magnusson 2014-10-29 21:09:13 +01:00
parent d96096515e
commit 68a4c4f85c
1 changed files with 5 additions and 0 deletions

View File

@ -2179,12 +2179,16 @@ static void atom2str(scheme *sc, pointer l, int f, char **pp, int *plen) {
switch(c) {
case ' ':
p = "#\\space";
break;
case '\n':
p = "#\\newline";
break;
case '\r':
p = "#\\return";
break;
case '\t':
p = "#\\tab";
break;
default:
#if USE_ASCII_NAMES
if(c==127) {
@ -2200,6 +2204,7 @@ static void atom2str(scheme *sc, pointer l, int f, char **pp, int *plen) {
}
#endif
snprintf(p,STRBUFFSIZE,"#\\%c",c); break;
break;
}
}
} else if (is_symbol(l)) {