From 2af91eb5d0dc699ef84b37378987abb07482e600 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 20 Dec 2021 07:42:29 -0800 Subject: less: bug, vectors not supported. * lib.c (less_tab_init): Add missing initialization for VEC, with a priority above CONS: all vectors are greater than conses. The BUF priority is bumped to 7. * test/012/less.tl: New file. --- lib.c | 3 ++- tests/012/less.tl | 21 +++++++++++++++++++++ 2 files changed, 23 insertions(+), 1 deletion(-) create mode 100644 tests/012/less.tl diff --git a/lib.c b/lib.c index 36b6186d..79ad82a0 100644 --- a/lib.c +++ b/lib.c @@ -6227,11 +6227,12 @@ static void less_tab_init(void) type_prec[STR] = 3; type_prec[SYM] = 4; type_prec[LCONS] = 5; + type_prec[VEC] = 6; type_prec[LSTR] = 3; type_prec[BGNUM] = 1; type_prec[FLNUM] = 1; type_prec[RNG] = 2; - type_prec[BUF] = 6; + type_prec[BUF] = 7; for (l = 0; l <= MAXTYPE; l++) for (r = 0; r <= MAXTYPE; r++) { diff --git a/tests/012/less.tl b/tests/012/less.tl new file mode 100644 index 00000000..11748c7f --- /dev/null +++ b/tests/012/less.tl @@ -0,0 +1,21 @@ +(load "../common") + +(mtest + (less #() #(a)) t + (greater #() #(a)) nil + (less #(0) #(1)) t + (greater #(0) #(1)) nil + (less #(1) #(0)) nil + (greater #(1) #(0)) t + (less #(0) #(0 0)) t + (less #(1) #(0 0)) nil + (less #(0 0) #(0 1)) t + (less #(0 0) #(0 0)) nil + (less #(0 0) #(0 0 0)) t) + +(mtest + (less '() #()) t + (less '(0) #(0)) t + (less "a" #(#\a)) t + (less #() #b'') t + (less #(0) #b'00') t) -- cgit v1.2.3