suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

wrap scheme/interactive load with error boilerplate

Browse Source
This commit is contained in:
Matthew Flatt 2016-07-26 10:55:43 -06:00
parent 453684b694
commit 0198847980
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racket/src/racket/cmdline.inc
View File

@ -672,8 +672,19 @@ static int finish_cmd_line_run(FinishArgs *fa, Repl_Proc repl)
Scheme_Object *a[2]; Scheme_Object *a[2];
a[0] = get_init_filename(fa->global_env, INIT_FILENAME_CONF_SYM, DEFAULT_INIT_MODULE); a[0] = get_init_filename(fa->global_env, INIT_FILENAME_CONF_SYM, DEFAULT_INIT_MODULE);
if (a[0]) { if (a[0]) {
mz_jmp_buf * volatile save, newbuf;
Scheme_Thread * volatile p;
p = scheme_get_current_thread();
save = p->error_buf;
p->error_buf = &newbuf;
if (!scheme_setjmp(newbuf)) {
a[1] = scheme_make_integer(0); a[1] = scheme_make_integer(0);
scheme_dynamic_require(2, a); scheme_dynamic_require(2, a);
} else {
scheme_clear_escape();
exit_val = 1;
}
p->error_buf = save;
} }
} }
#endif /* DONT_LOAD_INIT_FILE */ #endif /* DONT_LOAD_INIT_FILE */