~ chicken-core (chicken-5) 9f090434b76af8428ab732b36b142ddf052e2c47


commit 9f090434b76af8428ab732b36b142ddf052e2c47
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jul 3 16:59:26 2025 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jul 3 16:59:26 2025 +0200

    remove stale code lines from chicken-do.c
    
    (reported by "jrapdx")

diff --git a/chicken-do.c b/chicken-do.c
index 5ea28d8b..2361c922 100644
--- a/chicken-do.c
+++ b/chicken-do.c
@@ -103,8 +103,6 @@ static int execute(char **argv)
   }
 
   WaitForSingleObject(process_info.hProcess, INFINITE);
-  CloseHandle(process_info.hThread);
-  CloseHandle(process_info.hProcess);
   DWORD code;
 
   if(!GetExitCodeProcess(process_info.hProcess, &code)) {
@@ -155,7 +153,7 @@ static int execute(char **argv)
 }
 
 
-int main(int argc, char *argv[]) 
+int main(int argc, char *argv[])
 {
   int i, a = 0;
   struct stat *st, sd;
@@ -219,7 +217,7 @@ int main(int argc, char *argv[])
     if(stat(*d, &sd) == -1) {
       fprintf(stderr, "%s: %s\n", *d, strerror(errno));
       exit(1);
-    }      
+    }
 
     st = tstats;
 
Trap