From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 7 Oct 2013 17:30:11 +0000 (+0000)
Subject: Fasload errors should fail gracefully, not terminate Scheme.
X-Git-Tag: release-9.2.0~85
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d1de22c64593a8005645b9f03745d020ede3b1a5;p=mit-scheme.git

Fasload errors should fail gracefully, not terminate Scheme.
---

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);
 }