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.

2 files changed, 23 insertions, 1 deletions

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)