mes: display: vector.

* src/lib.c (display_helper): Display vector.

diff --git a/src/lib.c b/src/lib.c
index c433886bd0e26c1f37cab55f88c3df6dd2b7a8b5..131589c9fbfaea55da93978e0835c61e7910d84d 100644 (file)
--- a/src/lib.c
+++ b/src/lib.c
@@ -113,6 +113,18 @@ display_helper (SCM x, int cont, char* sep, int fd, int write_p)
         if (write_p && TYPE (x) == TSTRING) fputc ('"', fd);
         break;
       }
+    case TVECTOR:
+      {
+        fputs ("#(", fd);
+        SCM t = CAR (x);
+        for (int i = 0; i < LENGTH (x); i++)
+          {
+            if (i) fputc (' ', fd);
+            fdisplay_ (VECTOR (x) + i, fd, write_p);
+          }
+        fputc (')', fd);
+        break;
+      }
     default:
       {
         fputs ("<", fd);