add scm_dynwind_lock_port

* libguile/ports.h:
* libguile/ports.c (scm_dynwind_lock_port): New function.

diff --git a/libguile/ports.c b/libguile/ports.c
index a95774b..bad524e 100644 (file)
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -1098,6 +1098,32 @@ SCM_DEFINE (scm_set_port_conversion_strategy_x, "set-port-conversion-strategy!",
 
 \f
 
+/* The port lock.  */
+
+static void
+lock_port (SCM port)
+{
+  scm_c_lock_port (port);
+}
+
+static void
+unlock_port (SCM port)
+{
+  scm_c_unlock_port (port);
+}
+
+void
+scm_dynwind_lock_port (SCM port)
+{
+  scm_dynwind_unwind_handler_with_scm (unlock_port, port,
+                                       SCM_F_WIND_EXPLICITLY);
+  scm_dynwind_rewind_handler_with_scm (lock_port, port,
+                                       SCM_F_WIND_EXPLICITLY);
+}
+
+
+\f
+
 /* Revealed counts --- an oddity inherited from SCSH.  */
 
 /* Find a port in the table and return its revealed count.

diff --git a/libguile/ports.h b/libguile/ports.h
index 56cafdb..624b7b8 100644 (file)
--- a/libguile/ports.h
+++ b/libguile/ports.h
@@ -294,6 +294,7 @@ SCM_API SCM scm_port_conversion_strategy (SCM port);
 SCM_API SCM scm_set_port_conversion_strategy_x (SCM port, SCM behavior);
 
 /* Acquiring and releasing the port lock.  */
+SCM_API void scm_dynwind_lock_port (SCM port);
 SCM_INLINE int scm_c_lock_port (SCM port);
 SCM_INLINE int scm_c_try_lock_port (SCM port);
 SCM_INLINE int scm_c_unlock_port (SCM port);