mes: display: Support keyword.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 3 Feb 2018 20:57:30 +0000 (21:57 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 3 Feb 2018 20:57:30 +0000 (21:57 +0100)
* src/lib.c (display_helper): Support keyword.

src/lib.c

index 131589c9fbfaea55da93978e0835c61e7910d84d..4899012df48e6655fe88ef2f0b5f96d6e93dfb99 100644 (file)
--- a/src/lib.c
+++ b/src/lib.c
@@ -99,10 +99,12 @@ display_helper (SCM x, int cont, char* sep, int fd, int write_p)
         if (!cont) fputs (")", fd);
         break;
       }
+    case TKEYWORD:
     case TSPECIAL:
     case TSTRING:
     case TSYMBOL:
       {
+        if (TYPE (x) == TKEYWORD) fputs ("#:", fd);
         if (write_p && TYPE (x) == TSTRING) fputc ('"', fd);
         SCM t = CAR (x);
         while (t && t != cell_nil)