statf becomes external.

* sysif.c (statf): Linkage changed to
external. Also, fixed wrong name being passed
down to stat_impl.

* sysif.h (statf): Declaration updated.

2 files changed, 3 insertions, 2 deletions

diff --git a/sysif.c b/sysif.c
index 68971468..6f6ce7c0 100644
--- a/sysif.c
+++ b/sysif.c
@@ -660,9 +660,9 @@ static val statl(val path)
   return stat_impl(path, w_lstat, lit("lstat"));
 }
 
-static val statf(val stream)
+val statf(val stream)
 {
-  return stat_impl(stream, w_fstat, lit("lstat"));
+  return stat_impl(stream, w_fstat, lit("fstat"));
 }
 
 #if HAVE_PIPE
diff --git a/sysif.h b/sysif.h
index 7b7e8d3f..22e87b89 100644
--- a/sysif.h
+++ b/sysif.h
@@ -34,4 +34,5 @@ extern val atime_s, mtime_s, ctime_s;
 
 val getenv_wrap(val name);
 val statp(val path);
+val statf(val path);
 void sysif_init(void);