diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-11-06 22:12:04 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-11-06 22:12:04 +0000 |
commit | 9291479faa3965f39324e3d3f5453c951c0691c9 (patch) | |
tree | d70b6fab1980e90b4b5d1d13bfff5cc64fcdea32 /libguile/stime.c | |
parent | 914da0e2fce5d0f062d43131270849f2adcb642f (diff) | |
download | guile-9291479faa3965f39324e3d3f5453c951c0691c9.tar.gz |
(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.
Diffstat (limited to 'libguile/stime.c')
-rw-r--r-- | libguile/stime.c | 4 |
1 files 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 (<, zoff, zname)); - SCM_CRITICAL_SECTION_END; if (zname) free (zname); |