From 2d99b584ac6cf195e1c52f28a819c6937bdd9293 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Tue, 16 Sep 2003 21:18:26 +0000
Subject: [PATCH] (scm_current_time): 'time' does not set errno so don't use
 SCM_SYSERROR for reporting errors.

---
 libguile/stime.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/stime.c b/libguile/stime.c
index 1d9265e96..e792eba08 100644
--- a/libguile/stime.c
+++ b/libguile/stime.c
@@ -190,7 +190,7 @@ SCM_DEFINE (scm_current_time, "current-time", 0, 0, 0,
 
   SCM_DEFER_INTS;
   if ((timv = time (0)) == -1)
-    SCM_SYSERROR;
+    SCM_MISC_ERROR ("current time not available", SCM_EOL);
   SCM_ALLOW_INTS;
   return scm_long2num((long) timv);
 }