projects
/
mes.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
63e8b49
)
mes: display: vector.
author
Jan Nieuwenhuizen
<janneke@gnu.org>
Fri, 12 Jan 2018 17:24:42 +0000
(18:24 +0100)
committer
Jan Nieuwenhuizen
<janneke@gnu.org>
Fri, 12 Jan 2018 17:24:42 +0000
(18:24 +0100)
* src/lib.c (display_helper): Display vector.
src/lib.c
patch
|
blob
|
history
diff --git
a/src/lib.c
b/src/lib.c
index c433886bd0e26c1f37cab55f88c3df6dd2b7a8b5..131589c9fbfaea55da93978e0835c61e7910d84d 100644
(file)
--- a/
src/lib.c
+++ b/
src/lib.c
@@
-113,6
+113,18
@@
display_helper (SCM x, int cont, char* sep, int fd, int write_p)
if (write_p && TYPE (x) == TSTRING) fputc ('"', fd);
break;
}
+ case TVECTOR:
+ {
+ fputs ("#(", fd);
+ SCM t = CAR (x);
+ for (int i = 0; i < LENGTH (x); i++)
+ {
+ if (i) fputc (' ', fd);
+ fdisplay_ (VECTOR (x) + i, fd, write_p);
+ }
+ fputc (')', fd);
+ break;
+ }
default:
{
fputs ("<", fd);