Fasload errors should fail gracefully, not terminate Scheme.

diff --git a/src/microcode/fasload.c b/src/microcode/fasload.c
index 209bf2edae8158159680ac14a2efa532a41d134e..eed730d8b68ac4bcea5e75e6697cf87a9bb1858e 100644 (file)
--- 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);
 }