mes: display: vector.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 12 Jan 2018 17:24:42 +0000 (18:24 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 12 Jan 2018 17:24:42 +0000 (18:24 +0100)
* src/lib.c (display_helper): Display vector.

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);