--- stime.c.~1.79.~ 1970-01-01 10:00:00.000000000 +1000 +++ stime.c 2003-08-23 14:22:05.000000000 +1000 @@ -188,10 +188,8 @@ { timet timv; - SCM_DEFER_INTS; if ((timv = time (0)) == -1) SCM_SYSERROR; - SCM_ALLOW_INTS; return scm_long2num((long) timv); } #undef FUNC_NAME @@ -207,10 +205,8 @@ #ifdef HAVE_GETTIMEOFDAY struct timeval time; - SCM_DEFER_INTS; if (gettimeofday (&time, NULL) == -1) SCM_SYSERROR; - SCM_ALLOW_INTS; return scm_cons (scm_long2num ((long) time.tv_sec), scm_long2num ((long) time.tv_usec)); #else @@ -223,10 +219,8 @@ # else timet timv; - SCM_DEFER_INTS; if ((timv = time (0)) == -1) SCM_SYSERROR; - SCM_ALLOW_INTS; return scm_cons (scm_long2num (timv), SCM_MAKINUM (0)); # endif #endif