Skip to content

Commit 95f9e6c

Browse files
committed
Defining &continuation in (core) to avoid build failure
I'm a bit too lazy to export it from (core errors)
1 parent 5968f71 commit 95f9e6c

File tree

1 file changed

+5
-4
lines changed

1 file changed

+5
-4
lines changed

src/vm.c

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -3447,17 +3447,18 @@ void Sg__InitVM()
34473447
void 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

Comments
 (0)