Compiler Warning Fixes

svn: r18695

src/mzscheme/src/module.c

@@ -3767,7 +3767,7 @@ static void lock_registry(Scheme_Env *env)
 {
   Scheme_Object *lock;
   lock = scheme_make_pair(scheme_make_sema(0),
-                          scheme_current_thread);
+                          (Scheme_Object *) scheme_current_thread);
   scheme_hash_set(env->module_registry, scheme_false, lock);
 }
 

src/mzscheme/src/thread.c

@@ -7903,7 +7903,8 @@ int scheme_is_in_frozen_stack()
 static unsigned long get_deeper_base()
 {
   long here;
-  return (unsigned long)&here;
+  unsigned long here_addr = (unsigned long)&here;
+  return here_addr;
 }
 
 #ifdef _MSC_VER