Eliminate compiler warnings
This commit is contained in:
parent
5e20081b69
commit
024bb8a718
|
@ -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"
|
||||
|
|
|
@ -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);
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user