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

no more sexp_symbol_string, accessing sexp_symbol_data directly

Browse source
This commit is contained in:
Alex Shinn 2010-07-31 22:20:53 +09:00
parent db5927abf7
commit f58670b531
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/srfi/95/qsort.c
View file

@ -74,8 +74,7 @@ static int sexp_object_compare (sexp ctx, sexp a, sexp b) {
res = strcmp(sexp_string_data(a), sexp_string_data(b));
break;
case SEXP_SYMBOL:
res = strcmp(sexp_string_data(sexp_symbol_string(a)),
sexp_string_data(sexp_symbol_string(b)));
res = strcmp(sexp_symbol_data(a), sexp_symbol_data(b));
break;
default:
res = 0;
@ -84,7 +83,7 @@ static int sexp_object_compare (sexp ctx, sexp a, sexp b) {
}
#if SEXP_USE_HUFF_SYMS
} else if (sexp_lsymbolp(a) && sexp_isymbolp(b)) {
res = strcmp(sexp_string_data(sexp_symbol_string(a)),
res = strcmp(sexp_symbol_data(a),
sexp_string_data(sexp_write_to_string(ctx, b)));
#endif
} else {
@ -94,7 +93,7 @@ static int sexp_object_compare (sexp ctx, sexp a, sexp b) {
#if SEXP_USE_HUFF_SYMS
if (sexp_isymbolp(a) && sexp_lsymbolp(b))
res = strcmp(sexp_string_data(sexp_write_to_string(ctx, a)),
sexp_string_data(sexp_symbol_string(b)));
sexp_symbol_data(b));
else
#endif
res = -1;