Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +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 "{
\"glossary\": {
\"title\": \"example glossary\",
\"GlossDiv\": {
\"GlossDiv\": {
\"title\": \"S\",
\"GlossList\": {
\"GlossList\": {
\"GlossEntry\": {
\"ID\": \"SGML\",
\"SortAs\": \"SGML\",
\"GlossTerm\": \"Standard Generalized Markup Language\",
\"Acronym\": \"SGML\",
\"Abbrev\": \"ISO 8879:1986\",
\"GlossDef\": {
\"SortAs\": \"SGML\",
\"GlossTerm\": \"Standard Generalized Markup Language\",
\"Acronym\": \"SGML\",
\"Abbrev\": \"ISO 8879:1986\",
\"GlossDef\": {
\"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
} else if (sexp_isymbolp(b) && sexp_lsymbolp(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
} else {
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_isymbolp(a) && sexp_lsymbolp(b))
res = strcmp(sexp_string_data(sexp_write_to_string(ctx, a)),
sexp_lsymbol_data(b));
sexp_lsymbol_data(b));
else
#endif
res = -1;