From 9291479faa3965f39324e3d3f5453c951c0691c9 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 6 Nov 2005 22:12:04 +0000
Subject: [PATCH] (scm_mktime): Use scm_frame_critical_section instead of
 SCM_CRITICAL_SECTION_START/END since the code inside the critical section
 might exit non-locally.

---
 libguile/stime.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/stime.c b/libguile/stime.c
index 36d34d450..591b20c8c 100644
--- a/libguile/stime.c
+++ b/libguile/stime.c
@@ -532,7 +532,8 @@ SCM_DEFINE (scm_mktime, "mktime", 1, 1, 0,
   scm_frame_free ((char *)lt.tm_zone);
 #endif
 
-  SCM_CRITICAL_SECTION_START;
+  scm_frame_critical_section (SCM_BOOL_F);
+
   oldenv = setzone (zone, SCM_ARG2, FUNC_NAME);
 #ifdef LOCALTIME_CACHE
   tzset ();
@@ -585,7 +586,6 @@ SCM_DEFINE (scm_mktime, "mktime", 1, 1, 0,
 
   result = scm_cons (scm_from_long (itime),
 		     filltime (&lt, zoff, zname));
-  SCM_CRITICAL_SECTION_END;
   if (zname)
     free (zname);