core: Fix displaying of closure.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 20 Oct 2018 18:01:45 +0000 (20:01 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 20 Oct 2018 18:01:45 +0000 (20:01 +0200)
* src/lib.c (display_helper): Fix displaying of closure.

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)