Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

win32: Disable #435 for Win32

Browse source 
Disable #435 for Win32 as it is only meant for UNIX platforms.
This commit is contained in:
okuoku 2017-11-18 15:55:34 +09:00
parent aed9d4da32
commit 51a73231de
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
main.c
View file

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