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.

1 files changed, 21 insertions, 0 deletions

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)