Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

forgot conditional includes for no case-folding

Browse source
This commit is contained in:
Alex Shinn 2011-05-24 07:29:30 +09:00
parent cdd9fce781
commit a66dd88158
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
main.c
View file

@ -116,7 +116,9 @@ static void do_init_context (sexp* ctx, sexp* env, sexp_uint_t heap_size,
fprintf(stderr, "chibi-scheme: out of memory\n"); fprintf(stderr, "chibi-scheme: out of memory\n");
exit_failure(); exit_failure();
} }
#if SEXP_USE_FOLD_CASE_SYMS
sexp_global(*ctx, SEXP_G_FOLD_CASE_P) = sexp_make_boolean(fold_case); sexp_global(*ctx, SEXP_G_FOLD_CASE_P) = sexp_make_boolean(fold_case);
#endif
*env = sexp_context_env(*ctx); *env = sexp_context_env(*ctx);
} }
@ -216,10 +218,12 @@ void run_main (int argc, char **argv) {
sexp_write(ctx, tmp, out); sexp_write(ctx, tmp, out);
sexp_newline(ctx, out); sexp_newline(ctx, out);
return; return;
#if SEXP_USE_FOLD_CASE_SYMS
case 'f': case 'f':
fold_case = 1; fold_case = 1;
if (ctx) sexp_global(ctx, SEXP_G_FOLD_CASE_P) = SEXP_TRUE; if (ctx) sexp_global(ctx, SEXP_G_FOLD_CASE_P) = SEXP_TRUE;
break; break;
#endif
default: default:
fprintf(stderr, "unknown option: %s\n", argv[i]); fprintf(stderr, "unknown option: %s\n", argv[i]);
exit_failure(); exit_failure();