From d1de22c64593a8005645b9f03745d020ede3b1a5 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 7 Oct 2013 17:30:11 +0000 Subject: [PATCH] Fasload errors should fail gracefully, not terminate Scheme. --- src/microcode/fasload.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/microcode/fasload.c b/src/microcode/fasload.c index 209bf2eda..eed730d8b 100644 --- a/src/microcode/fasload.c +++ b/src/microcode/fasload.c @@ -603,7 +603,7 @@ relocate_address (void * vaddr) ((unsigned long) (FASLHDR_CONSTANT_END (fh))), ((unsigned long) (FASLHDR_STACK_START (fh))), ((unsigned long) (FASLHDR_STACK_END (fh)))); - termination_init_error (); + signal_error_from_primitive (ERR_FASL_FILE_BAD_DATA); } return (result); } -- 2.25.1