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)); l = scheme_get_stack_trace(scheme_struct_ref(argv[1], 1));
while (!SCHEME_NULLP(l)) { while (!SCHEME_NULLP(l)) {
if (!max_cnt) { if (!max_cnt) {
scheme_write_byte_string("...\n", 4, port); scheme_write_byte_string("\n ...", 7, port);
break; break;
} else { } else {
Scheme_Object *name, *loc; Scheme_Object *name, *loc;