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

The #!fold-case directive is always case-insensitive.

Browse source 
Fixes issue #349.
This commit is contained in:
Alex Shinn 2016-06-05 22:29:52 +09:00
parent 7cb15a7191
commit fdab1188c1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sexp.c
View file

@ -3006,10 +3006,10 @@ sexp sexp_read_raw (sexp ctx, sexp in, sexp *shares) {
sexp_push_char(ctx, c1, in); sexp_push_char(ctx, c1, in);
res = sexp_read_symbol(ctx, in, '!', 0); res = sexp_read_symbol(ctx, in, '!', 0);
if (SEXP_USE_FOLD_CASE_SYMS && sexp_stringp(res) if (SEXP_USE_FOLD_CASE_SYMS && sexp_stringp(res)
&& strcmp("!fold-case", sexp_string_data(res)) == 0) { && strcasecmp("!fold-case", sexp_string_data(res)) == 0) {
sexp_port_fold_casep(in) = 1; sexp_port_fold_casep(in) = 1;
} else if (SEXP_USE_FOLD_CASE_SYMS && sexp_stringp(res) } else if (SEXP_USE_FOLD_CASE_SYMS && sexp_stringp(res)
&& strcmp("!no-fold-case", sexp_string_data(res)) == 0) { && strcasecmp("!no-fold-case", sexp_string_data(res)) == 0) {
sexp_port_fold_casep(in) = 0; sexp_port_fold_casep(in) = 0;
} else { } else {
res = sexp_read_error(ctx, "unknown #! symbol", res, in); res = sexp_read_error(ctx, "unknown #! symbol", res, in);