Commit 68a4c4f8 authored by Mikael Magnusson's avatar Mikael Magnusson

scheme: add missing breaks

parent d9609651
......@@ -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)) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment