projects
/
mes.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
00dc027
)
core: Fix displaying of closure.
author
Jan Nieuwenhuizen
<janneke@gnu.org>
Sat, 20 Oct 2018 18:01:45 +0000
(20:01 +0200)
committer
Jan 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
patch
|
blob
|
history
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)