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

* filesys.c (scm_dir_print): Don't use the port printing code.

Browse source 
Instead provide specific directory printer.
This commit is contained in:
Mikael Djurfeldt 1999-07-24 23:08:16 +00:00
parent 16a5a9a445
commit f8b16091fc
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/filesys.c
View file

@ -651,12 +651,14 @@ scm_closedir (port)
static int scm_dir_print SCM_P ((SCM sexp, SCM port, scm_print_state *pstate)); static int scm_dir_print SCM_P ((SCM sexp, SCM port, scm_print_state *pstate));
static int static int
scm_dir_print (sexp, port, pstate) scm_dir_print (SCM exp, SCM port, scm_print_state *pstate)
SCM sexp;
SCM port;
scm_print_state *pstate;
{ {
scm_prinport (sexp, port, "directory"); scm_puts ("#<", port);
if (SCM_CLOSEDP (exp))
scm_puts ("closed: ", port);
scm_puts ("directory ", port);
scm_intprint (SCM_CDR (exp), 16, port);
scm_putc ('>', port);
return 1; return 1;
} }