From 2e166e14e91a5f52a69ca814845d5d7a7f3192a7 Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Fri, 4 Dec 2009 22:51:02 +0000 Subject: [PATCH] Fixed compiler warning svn: r17187 --- src/mzscheme/src/string.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/mzscheme/src/string.c b/src/mzscheme/src/string.c index 9512b1a129..e7bca46d91 100644 --- a/src/mzscheme/src/string.c +++ b/src/mzscheme/src/string.c @@ -2006,7 +2006,7 @@ static void putenv_str_table_put_name(Scheme_Object *name, Scheme_Object *value) void *original_gc; Scheme_Object *name_copy; original_gc = GC_switch_to_master_gc(); - name_copy = (Scheme_Object *) clone_str_with_gc((Scheme_Object *) name); + name_copy = (Scheme_Object *) clone_str_with_gc((const char *) name); create_putenv_str_table_if_needed(); scheme_hash_set(putenv_str_table, name_copy, value); GC_switch_back_from_master(original_gc); @@ -2024,8 +2024,8 @@ static void putenv_str_table_put_name_value(Scheme_Object *name, Scheme_Object * Scheme_Object *name_copy; Scheme_Object *value_copy; original_gc = GC_switch_to_master_gc(); - name_copy = (Scheme_Object *) clone_str_with_gc((Scheme_Object *) name); - value_copy = (Scheme_Object *) clone_str_with_gc((Scheme_Object *) value); + name_copy = (Scheme_Object *) clone_str_with_gc((const char *) name); + value_copy = (Scheme_Object *) clone_str_with_gc((const char *) value); create_putenv_str_table_if_needed(); scheme_hash_set(putenv_str_table, name_copy, value_copy); GC_switch_back_from_master(original_gc);