diff --git a/src/mzscheme/src/network.c b/src/mzscheme/src/network.c index 5492b2fa03..d2398996e1 100644 --- a/src/mzscheme/src/network.c +++ b/src/mzscheme/src/network.c @@ -652,6 +652,7 @@ struct mz_addrinfo *scheme_get_host_address(const char *address, int id, int *er char buf[32], *service; int ok; GC_CAN_IGNORE struct mz_addrinfo *r, hints; + r = NULL; if (id) { service = buf; diff --git a/src/mzscheme/src/print.c b/src/mzscheme/src/print.c index 0531fae272..a6ed7fcdbb 100644 --- a/src/mzscheme/src/print.c +++ b/src/mzscheme/src/print.c @@ -861,10 +861,10 @@ print_to_string(Scheme_Object *obj, if (params.print_graph) cycles = 1; else { - int fast_checker_counter = 50; #ifdef MZ_USE_PLACES cycles = -1; #else + int fast_checker_counter = 50; cycles = check_cycles_fast(obj, (PrintParams *)¶ms, &fast_checker_counter); #endif if (cycles == -1) { diff --git a/src/mzscheme/src/read.c b/src/mzscheme/src/read.c index 526bf8395e..6cd0f6c751 100644 --- a/src/mzscheme/src/read.c +++ b/src/mzscheme/src/read.c @@ -46,6 +46,7 @@ #ifdef USE_STACKAVAIL # include #endif +#include "math.h" #define MAX_QUICK_SYMBOL_SIZE 64