fix printing of ellipses in long error context

This commit is contained in:
Matthew Flatt 2015-02-15 08:09:48 -07:00
parent d747f8f806
commit 1c4c76dd57

View File

@ -3186,7 +3186,7 @@ def_error_display_proc(int argc, Scheme_Object *argv[])
l = scheme_get_stack_trace(scheme_struct_ref(argv[1], 1));
while (!SCHEME_NULLP(l)) {
if (!max_cnt) {
scheme_write_byte_string("...\n", 4, port);
scheme_write_byte_string("\n ...", 7, port);
break;
} else {
Scheme_Object *name, *loc;