From 63e8b49d9e9a1afb4127336d9c71af2a63449b6f Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 14 Jan 2018 09:11:19 +0100
Subject: [PATCH] mes: display: closure names.

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

diff --git a/src/lib.c b/src/lib.c
index dd3ee527..c433886b 100644
--- a/src/lib.c
+++ b/src/lib.c
@@ -73,7 +73,17 @@ display_helper (SCM x, int cont, char* sep, int fd, int write_p)
       {
         if (!cont) fputs ("(", fd);
         if (CAR (x) == cell_circular)
-          fputs ("*circ* . #-1#", fd);
+          {
+            fputs ("(*circ* . ", fd);
+            int i = 0;
+            x = CDR (x);
+            while (x != cell_nil && i++ < 10)
+              {
+                fdisplay_ (CAAR (x), fd, write_p); fputs (" ", fd);
+                x = CDR (x);
+              }
+            fputs (" ...)", fd);
+          }
         else
           {
             if (x && x != cell_nil) fdisplay_ (CAR (x), fd, write_p);