From 1c4ccf8457decb8b49bf9da9ba2a5be8cf26714d Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Tue, 26 Sep 2006 01:13:44 +0000
Subject: [PATCH] (scm_i_fport_seek, scm_i_fport_truncate): New functions.

---
 libguile/fports.h | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/libguile/fports.h b/libguile/fports.h
index efc315792..634106760 100644
--- a/libguile/fports.h
+++ b/libguile/fports.h
@@ -58,6 +58,9 @@ SCM_API void scm_init_fports (void);
 /* internal functions */
 
 SCM_API SCM scm_i_fdes_to_port (int fdes, long mode_bits, SCM name);
+SCM_API int scm_i_fport_truncate (SCM, SCM);
+SCM_API SCM scm_i_fport_seek (SCM, SCM, int);
+
 
 #endif  /* SCM_FPORTS_H */