Encode comma syntax

This commit is contained in:
Justin Ethier 2017-08-16 11:42:18 +00:00
parent d72feb5d34
commit 9226403da9

View file

@ -6119,7 +6119,9 @@ void Cyc_io_read_token(void *data, object cont, object port)
p->col_num++;
return_thread_runnable(data, unquote_splicing);
} else {
return_thread_runnable(data, obj_char2obj(c));
// Again, special encoding for syntax
make_c_opaque(opq, obj_char2obj(c));
return_thread_runnable(data, &opq);
}
} else if (c == '"') {
if (p->tok_end) _read_return_atom(data, cont, p);