mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* fports.c (print_pipe_port): New function.

Browse source 
(scm_fptob): Use print_pipe_port instead of scm_prinport; the
latter doesn't even take the right arguments.
This commit is contained in:
Jim Blandy 1997-05-27 02:37:22 +00:00
parent 06de7963a3
commit 8f29fbd0ca
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/fports.c
View file

@ -363,6 +363,15 @@ local_ffwrite (ptr, size, nitems, fp)
return ffwrite (ptr, size, nitems, fp);
}
static int
print_pipe_port (SCM exp, SCM port, scm_print_state *pstate)
{
scm_prinport (exp, port, "pipe");
return 1;
}
/* On SunOS, there's no declaration for pclose in the headers, so
putting it directly in the initializer for scm_pipob doesn't really
fly. We could add an extern declaration for it, but then it'll
@ -395,7 +404,7 @@ scm_ptobfuns scm_pipob =
{
scm_mark0,
(int (*) SCM_P ((SCM))) local_pclose,
scm_prinport,
print_pipe_port,
0,
(int (*) SCM_P ((int, SCM))) local_fputc,
(int (*) SCM_P ((char *, SCM))) local_fputs,