From 674bed609b0f6eef7552db4f37f35e37bb73dec2 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 11 Nov 2019 00:12:55 +0100
Subject: [PATCH] display: <var>

---
 src/display.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/display.c b/src/display.c
index 0d6db3a0..b46f8971 100644
--- a/src/display.c
+++ b/src/display.c
@@ -139,7 +139,13 @@ display_helper (struct scm *x, int cont, char *sep, int fd, int write_p)
   else if (t == TVARIABLE)
     {
       fdputs ("#<variable ", fd);
-      display_helper (x->variable->car, cont, "", fd, 0);
+      if (x->variable->type == TPAIR)
+        display_helper (x->variable->car, cont, "", fd, 0);
+      else
+        {
+          fdputs ("value: ", fd);
+          display_helper (x->variable, cont, "", fd, 0);
+        }
       fdputs (">", fd);
     }
   else if (t == TNUMBER)