core: Fix displaying of closure.

* src/lib.c (display_helper): Fix displaying of closure.

diff --git a/src/lib.c b/src/lib.c
index 6187f249a1fbc577326e41902ecf5d95efc0c738..25bb0884d6c3a2b0d60f10b3a5f94cf5a4a6ccf9 100644 (file)
--- 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)