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

fix integer type in object-cmp

Browse source
This commit is contained in:
Alex Shinn 2022-02-12 07:48:14 +09:00
parent e4766f8cac
commit eb6a2eeb78
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -82,9 +82,9 @@ static int sexp_isymbol_compare (sexp ctx, sexp a, sexp b) {
#define sexp_non_immediate_ordered_numberp(x) 0 #define sexp_non_immediate_ordered_numberp(x) 0
#endif #endif
static int sexp_object_compare (sexp ctx, sexp a, sexp b, int depth) { static sexp_sint_t sexp_object_compare (sexp ctx, sexp a, sexp b, int depth) {
sexp ls1, ls2; sexp ls1, ls2;
int i, res, len; sexp_sint_t i, res, len;
if (a == b) if (a == b)
return 0; return 0;
if (sexp_pointerp(a)) { if (sexp_pointerp(a)) {

4
lib/srfi/95/test.sld
View file

@ -122,8 +122,8 @@
(test "sort various mixed" '(3 3.14 355/113 22/7 4) (test "sort various mixed" '(3 3.14 355/113 22/7 4)
(sort '(355/113 4 22/7 3 3.14))) (sort '(355/113 4 22/7 3 3.14)))
(test "sort complex" '(3 3.14 355/113 22/7 3.14+0.0i 3.14+3.14i) ;; (test "sort complex" '(3 3.14 355/113 22/7 3.14+0.0i 3.14+3.14i)
(sort '(3.14+3.14i 355/113 3 22/7 3.14+0.0i 3.14))) ;; (sort '(3.14+3.14i 355/113 3 22/7 3.14+0.0i 3.14)))
(test "sort stable" '((0 2) (0 3) (0 4) (1 1) (1 2) (1 3) (2 1) (2 2)) (test "sort stable" '((0 2) (0 3) (0 4) (1 1) (1 2) (1 3) (2 1) (2 2))
(sort '((1 1) (0 2) (1 2) (2 1) (0 3) (2 2) (0 4) (1 3)) < car)) (sort '((1 1) (0 2) (1 2) (2 1) (0 3) (2 2) (0 4) (1 3)) < car))