Eliminate unused variable compiler warnings

src/racket/src/future.c

@@ -966,9 +966,7 @@ static Scheme_Object *reset_future_logs_for_tracking(int argc, Scheme_Object **a
   Scheme_Future_State *fs;
   Scheme_Future_Thread_State *fts;
   Scheme_Future_Thread_State *rt_fts;
-  Scheme_Logger *logger;
 
-  logger = scheme_main_logger;
   fs = scheme_future_state;
   rt_fts = scheme_future_thread_state;
   if (fs) {

src/racket/src/port.c

@@ -2712,7 +2712,7 @@ static int complete_peeked_read_via_get(Scheme_Input_Port *ip,
   /* We used to return `did', but since an event has already been
      selected, claim success at this point always. */
 
-  return 1;
+  return 1 || did;
 }
 
 static Scheme_Object *return_data(void *data, int argc, Scheme_Object **argv)