fix build for Windows

This commit is contained in:
Matthew Flatt 2013-05-12 16:59:28 -06:00
parent 6bc6e8e07e
commit f8622080bb

View File

@ -252,7 +252,7 @@ static void configure_environment(Scheme_Object *mod)
a[0] = submod; a[0] = submod;
a[1] = scheme_make_true(); a[1] = scheme_make_true();
v = scheme_apply(mdp, 2, a); v = scheme_apply(mdp, 2, a);
if (SCHEME_TRUEP(v)) { if (!SAME_OBJ(scheme_make_false(), v)) {
dyreq = scheme_builtin_value("dynamic-require"); dyreq = scheme_builtin_value("dynamic-require");
a[0] = submod; a[0] = submod;