From 51a73231de1943ac7eebf787324302fe6bfab719 Mon Sep 17 00:00:00 2001
From: okuoku <mjt@cltn.org>
Date: Sat, 18 Nov 2017 15:55:34 +0900
Subject: [PATCH] win32: Disable #435 for Win32

Disable #435 for Win32 as it is only meant for UNIX platforms.
---
 main.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/main.c b/main.c
index 71e21053..4c56a87a 100644
--- a/main.c
+++ b/main.c
@@ -307,6 +307,7 @@ sexp run_main (int argc, char **argv) {
   args = SEXP_NULL;
   env = NULL;
 
+#ifndef _WIN32
   /* SRFI 22: invoke `main` procedure by default if the interpreter is invoked */
   /* as `scheme-r7rs`. */
   if (strncmp(basename(argv[0]), "scheme-r7rs", strlen("scheme-r7rs")) == 0) {
@@ -317,6 +318,7 @@ sexp run_main (int argc, char **argv) {
     i = 1;
     goto done_options;
   }
+#endif
 
   /* parse options */
   for (i=1; i < argc && argv[i][0] == '-'; i++) {