filesys.c.diff

   1 diff --git a/libguile/filesys.c b/libguile/filesys.c
   2 index f18560162..d2388b12a 100644
   3 --- a/libguile/filesys.c
   4 +++ b/libguile/filesys.c
   5 @@ -335,8 +335,8 @@ SCM_SYMBOL (scm_sym_fifo, "fifo");
   6  SCM_SYMBOL (scm_sym_sock, "socket");
   7  SCM_SYMBOL (scm_sym_unknown, "unknown");
   8
   9 -static SCM
  10 -scm_stat2scm (struct stat_or_stat64 *stat_temp)
  11 +static
  12 +SCM scm_stat2scm (struct stat_or_stat64 *stat_temp)
  13  {
  14    SCM ans = scm_c_make_vector (18, SCM_UNSPECIFIED);
  15
  16 @@ -442,6 +442,11 @@ scm_stat2scm (struct stat_or_stat64 *stat_temp)
  17    return ans;
  18  }
  19
  20 +extern SCM scm_stat2scm_ (void *stat_temp)
  21 +{
  22 +  return scm_stat2scm ((struct stat_or_stat64 *) stat_temp);
  23 +}
  24 +
  25  static int
  26  is_file_name_separator (SCM c)
  27  {