* stime.c (scm_init_stime): Add feature "current-time".

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index e9dcce2..2d14875 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,7 @@
+Sun Mar  2 16:34:40 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
+
+       * stime.c (scm_init_stime): Add feature "current-time".
+
 Sun Mar  2 06:37:31 1997  Gary Houston  <ghouston@actrix.gen.nz>
 
        * throw.h: prototype for scm_exit_status.

diff --git a/libguile/stime.c b/libguile/stime.c
index 45871bc..c5d5fe7 100644 (file)
--- a/libguile/stime.c
+++ b/libguile/stime.c
@@ -42,6 +42,7 @@
 
 #include <stdio.h>
 #include "_scm.h"
+#include "feature.h"
 
 #include "stime.h"
 
@@ -202,6 +203,7 @@ scm_init_stime()
 
   if (!scm_my_base) scm_my_base = mytime();
 
+  scm_add_feature ("current-time");
 #include "stime.x"
 }