Eliminate compiler warnings

This commit is contained in:
Kevin Tew 2012-03-09 12:40:22 -07:00
parent 5e20081b69
commit 024bb8a718
2 changed files with 6 additions and 6 deletions

View File

@ -6079,7 +6079,7 @@ static Scheme_Object *strip_lexical_context_k()
static Scheme_Object *strip_lexical_context(Scheme_Object *stx)
{
Scheme_Object *v;
Scheme_Object *v = NULL;
#ifdef DO_STACK_CHECK
# include "mzstkchk.h"

View File

@ -4197,7 +4197,7 @@ static intptr_t get_number(Scheme_Object *port, intptr_t pos)
static char *get_bytes(Scheme_Object *port, intptr_t pos, intptr_t len)
{
char *s;
intptr_t got, orig;
intptr_t orig;
s = scheme_malloc_atomic(len + 1);
s[len] = 0;
@ -4205,10 +4205,10 @@ static char *get_bytes(Scheme_Object *port, intptr_t pos, intptr_t len)
orig = scheme_set_file_position(port, -1);
scheme_set_file_position(port, pos);
got = scheme_get_byte_string("default-load-handler",
port,
(char *)s, 0, len,
0, 0, scheme_make_integer(0));
scheme_get_byte_string("default-load-handler",
port,
(char *)s, 0, len,
0, 0, scheme_make_integer(0));
(void)scheme_set_file_position(port, orig);