artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: display: vector.

Browse source 
* src/lib.c (display_helper): Display vector.
This commit is contained in:
Jan Nieuwenhuizen 2018-01-12 18:24:42 +01:00
parent 63e8b49d9e
commit 3161f039b2
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/lib.c
View file

@ -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); if (write_p && TYPE (x) == TSTRING) fputc ('"', fd);
break; 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: default:
{ {
fputs ("<", fd); fputs ("<", fd);