@@ -3447,17 +3447,18 @@ void Sg__InitVM()
34473447void Sg__PostInitVM ()
34483448{
34493449 SgObject lib = Sg_FindLibrary (SG_INTERN ("(core errors)" ), FALSE);
3450+ SgObject clib = Sg_FindLibrary (SG_INTERN ("(core)" ), FALSE);
34503451 SgObject b = Sg_FindBinding (lib , SG_INTERN ("raise" ), SG_UNBOUND );
34513452 if (SG_UNBOUNDP (b )) {
34523453 Sg_Panic ("`raise` was not found." );
34533454 }
3454- SG_INIT_CONDITION (SG_CLASS_CONTINUATION_VIOLATION , lib , "&continuation" ,
3455+ SG_INIT_CONDITION (SG_CLASS_CONTINUATION_VIOLATION , clib , "&continuation" ,
34553456 cont_violation_slot );
3456- SG_INIT_CONDITION_PRED (SG_CLASS_CONTINUATION_VIOLATION , lib ,
3457+ SG_INIT_CONDITION_PRED (SG_CLASS_CONTINUATION_VIOLATION , clib ,
34573458 "continuation-violation?" );
3458- SG_INIT_CONDITION_CTR (SG_CLASS_CONTINUATION_VIOLATION , lib ,
3459+ SG_INIT_CONDITION_CTR (SG_CLASS_CONTINUATION_VIOLATION , clib ,
34593460 "make-continuation-violation" , 1 );
3460- SG_INIT_CONDITION_ACC (cont_violation_tag , lib ,
3461+ SG_INIT_CONDITION_ACC (cont_violation_tag , clib ,
34613462 "&continuation-violation-prompt-tag" );
34623463 raise_proc = SG_GLOC_GET (SG_GLOC (b ));
34633464 b = Sg_FindBinding (lib , SG_INTERN ("raise-continuable" ), SG_UNBOUND );
0 commit comments