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

remove more tabs

Browse source
This commit is contained in:
Alex Shinn 2020-07-28 20:10:31 +09:00
parent d22959a40e
commit 82acca4772
2 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lib/chibi/json-test.sld
View file

@ -30,20 +30,20 @@
(string->json "{ (string->json "{
\"glossary\": { \"glossary\": {
\"title\": \"example glossary\", \"title\": \"example glossary\",
\"GlossDiv\": { \"GlossDiv\": {
\"title\": \"S\", \"title\": \"S\",
\"GlossList\": { \"GlossList\": {
\"GlossEntry\": { \"GlossEntry\": {
\"ID\": \"SGML\", \"ID\": \"SGML\",
\"SortAs\": \"SGML\", \"SortAs\": \"SGML\",
\"GlossTerm\": \"Standard Generalized Markup Language\", \"GlossTerm\": \"Standard Generalized Markup Language\",
\"Acronym\": \"SGML\", \"Acronym\": \"SGML\",
\"Abbrev\": \"ISO 8879:1986\", \"Abbrev\": \"ISO 8879:1986\",
\"GlossDef\": { \"GlossDef\": {
\"para\": \"A meta-markup language, used to create markup languages such as DocBook.\", \"para\": \"A meta-markup language, used to create markup languages such as DocBook.\",
\"GlossSeeAlso\": [\"GML\", \"XML\"] \"GlossSeeAlso\": [\"GML\", \"XML\"]
}, },
\"GlossSee\": \"markup\" \"GlossSee\": \"markup\"
} }
} }
} }

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

@ -156,7 +156,7 @@ static int sexp_object_compare (sexp ctx, sexp a, sexp b, int depth) {
#if SEXP_USE_HUFF_SYMS #if SEXP_USE_HUFF_SYMS
} else if (sexp_isymbolp(b) && sexp_lsymbolp(a)) { } else if (sexp_isymbolp(b) && sexp_lsymbolp(a)) {
res = strcmp(sexp_lsymbol_data(a), res = strcmp(sexp_lsymbol_data(a),
sexp_string_data(sexp_write_to_string(ctx, b))); sexp_string_data(sexp_write_to_string(ctx, b)));
#endif #endif
} else { } else {
res = 1; res = 1;
@ -170,7 +170,7 @@ static int sexp_object_compare (sexp ctx, sexp a, sexp b, int depth) {
#if SEXP_USE_HUFF_SYMS #if SEXP_USE_HUFF_SYMS
if (sexp_isymbolp(a) && sexp_lsymbolp(b)) if (sexp_isymbolp(a) && sexp_lsymbolp(b))
res = strcmp(sexp_string_data(sexp_write_to_string(ctx, a)), res = strcmp(sexp_string_data(sexp_write_to_string(ctx, a)),
sexp_lsymbol_data(b)); sexp_lsymbol_data(b));
else else
#endif #endif
res = -1; res = -1;