Added #\escape

This commit is contained in:
Justin Ethier 2017-08-17 11:04:26 +00:00
parent bf896f6b74
commit ffba7ff683

View file

@ -5979,6 +5979,8 @@ void _read_return_character(void *data, port_type *p)
return_thread_runnable(data, obj_char2obj('\b')); return_thread_runnable(data, obj_char2obj('\b'));
} else if(strncmp(p->tok_buf, "delete", 6) == 0) { } else if(strncmp(p->tok_buf, "delete", 6) == 0) {
return_thread_runnable(data, obj_char2obj(127)); return_thread_runnable(data, obj_char2obj(127));
} else if(strncmp(p->tok_buf, "escape", 6) == 0) {
return_thread_runnable(data, obj_char2obj(27));
} else if(strncmp(p->tok_buf, "newline", 7) == 0) { } else if(strncmp(p->tok_buf, "newline", 7) == 0) {
return_thread_runnable(data, obj_char2obj('\n')); return_thread_runnable(data, obj_char2obj('\n'));
} else if(strncmp(p->tok_buf, "null", 4) == 0) { } else if(strncmp(p->tok_buf, "null", 4) == 0) {