From 297fdb7026aaba13c0b3511b86be934d34e5f45f Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 20 Oct 2018 20:01:45 +0200
Subject: [PATCH] core: Fix displaying of closure.

* src/lib.c (display_helper): Fix displaying of closure.
---
 src/lib.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/lib.c b/src/lib.c
index 6187f249..25bb0884 100644
--- a/src/lib.c
+++ b/src/lib.c
@@ -55,7 +55,12 @@ display_helper (SCM x, int cont, char* sep, int fd, int write_p)
   else if (t == TCLOSURE)
     {
       fdputs ("#<closure ", fd);
-      display_helper (CDR (x), cont, "", fd, 0);
+      SCM circ = CADR (x);
+      SCM name = CADR (circ);
+      SCM args = CAR (CDDR (x));
+      display_helper (CAR (name), 0, "", fd, 0);
+      fdputc (' ', fd);
+      display_helper (args, 0, "", fd, 0);
       fdputs (">", fd);
     }
   else if (t == TFUNCTION)