system-type: fix 'so-mode
This commit is contained in:
parent
a1dccb4aa8
commit
9efb14e434
|
@ -2362,7 +2362,7 @@ static Scheme_Object *system_type(int argc, Scheme_Object *argv[])
|
||||||
}
|
}
|
||||||
|
|
||||||
if (SAME_OBJ(argv[0], so_mode_symbol)) {
|
if (SAME_OBJ(argv[0], so_mode_symbol)) {
|
||||||
#ifdef MZ_DLOPEN_GLOBAL_BY_DEFAULT
|
#ifdef USE_DLOPEN_GLOBAL_BY_DEFAULT
|
||||||
return scheme_intern_symbol("global");
|
return scheme_intern_symbol("global");
|
||||||
#else
|
#else
|
||||||
return scheme_intern_symbol("local");
|
return scheme_intern_symbol("local");
|
||||||
|
|
Loading…
Reference in New Issue
Block a user