From 3161f039b287975677ec94a5e8f051bed0e01102 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Fri, 12 Jan 2018 18:24:42 +0100
Subject: [PATCH] mes: display: vector.

* src/lib.c (display_helper): Display vector.
---
 src/lib.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/lib.c b/src/lib.c
index c433886b..131589c9 100644
--- 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);