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