rktio: fix normalization of envvar names on Windows

2017-06-18 17:05:00 -06:00 · 2017-06-18 17:05:00 -06:00 · 8d857245a4
commit 8d857245a4
parent 4250d51f08
1 changed files with 1 additions and 0 deletions
--- a/racket/src/racket/src/string.c
+++ b/racket/src/racket/src/string.c
@ -2414,6 +2414,7 @@ static Scheme_Object *env_copy(int argc, Scheme_Object *argv[])
    for (i = rktio_envvars_count(scheme_rktio, envvars); i--; ) {
      var = scheme_make_immutable_sized_byte_string(rktio_envvars_name_ref(scheme_rktio, envvars, i), -1, 1);
      val = scheme_make_immutable_sized_byte_string(rktio_envvars_value_ref(scheme_rktio, envvars, i), -1, 1);
+      var = normalize_env_case(var);
      ht = scheme_hash_tree_set(ht, var, val);
    }