Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-20 14:19:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Print bytevectors

Browse source
This commit is contained in:
Justin Ethier 2016-03-23 00:23:27 -04:00
parent f54bd39484
commit e92bd6cf7c
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
runtime.c
View file

@ -587,6 +587,16 @@ object Cyc_display(object x, FILE *port)
} }
fprintf(port, ")"); fprintf(port, ")");
break; break;
case bytevector_tag:
fprintf(port, "#u8(");
for (i = 0; i < ((bytevector) x)->len; i++) {
if (i > 0) {
fprintf(port, " ");
}
fprintf(port, "%d", (int)(((bytevector)x)->data[i]));
}
fprintf(port, ")");
break;
case cons_tag: case cons_tag:
has_cycle = Cyc_has_cycle(x); has_cycle = Cyc_has_cycle(x);
fprintf(port, "("); fprintf(port, "(");