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

Output file pointer when printing port

Browse source
This commit is contained in:
Justin Ethier 2015-06-23 21:25:34 -04:00
parent e4fd8b3387
commit f02d998dbc
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
runtime.c
View file

@ -349,7 +349,7 @@ object Cyc_display(object x, FILE *port)
fprintf(port, "<EOF>"); fprintf(port, "<EOF>");
break; break;
case port_tag: case port_tag:
fprintf(port, "<port>"); fprintf(port, "<port %p>", ((port_type *)x)->fp);
break; break;
case primitive_tag: case primitive_tag:
fprintf(port, "<primitive %s>", prim_name(x)); fprintf(port, "<primitive %s>", prim_name(x));