summaryrefslogtreecommitdiff
path: root/libguile/stime.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/stime.c')
-rw-r--r--libguile/stime.c24
1 files changed, 12 insertions, 12 deletions
diff --git a/libguile/stime.c b/libguile/stime.c
index f3a0438c7..f736fb7f9 100644
--- a/libguile/stime.c
+++ b/libguile/stime.c
@@ -129,7 +129,7 @@ extern int errno;
struct timeb scm_your_base = {0};
-GUILE_PROC(scm_get_internal_real_time, "get-internal-real-time", 0, 0, 0,
+SCM_DEFINE(scm_get_internal_real_time, "get-internal-real-time", 0, 0, 0,
(),
"Returns the number of time units since the interpreter was started.")
#define FUNC_NAME s_scm_get_internal_real_time
@@ -153,7 +153,7 @@ GUILE_PROC(scm_get_internal_real_time, "get-internal-real-time", 0, 0, 0,
timet scm_your_base = 0;
-GUILE_PROC(scm_get_internal_real_time, "get-internal-real-time", 0, 0, 0,
+SCM_DEFINE(scm_get_internal_real_time, "get-internal-real-time", 0, 0, 0,
(),
"")
#define FUNC_NAME s_scm_get_internal_real_time
@@ -164,7 +164,7 @@ GUILE_PROC(scm_get_internal_real_time, "get-internal-real-time", 0, 0, 0,
#endif
-GUILE_PROC (scm_times, "times", 0, 0, 0,
+SCM_DEFINE (scm_times, "times", 0, 0, 0,
(void),
"Returns an object with information about real and processor time.
The following procedures accept such an object as an argument and
@@ -215,7 +215,7 @@ terminated child processes.
static long scm_my_base = 0;
-GUILE_PROC(scm_get_internal_run_time, "get-internal-run-time", 0, 0, 0,
+SCM_DEFINE(scm_get_internal_run_time, "get-internal-run-time", 0, 0, 0,
(void),
"Returns the number of time units of processor time used by the interpreter.
Both "system" and "user" time
@@ -226,7 +226,7 @@ are included but subprocesses are not.")
}
#undef FUNC_NAME
-GUILE_PROC(scm_current_time, "current-time", 0, 0, 0,
+SCM_DEFINE(scm_current_time, "current-time", 0, 0, 0,
(void),
"Returns the number of seconds since 1970-01-01 00:00:00 UTC, excluding
leap seconds.")
@@ -242,7 +242,7 @@ leap seconds.")
}
#undef FUNC_NAME
-GUILE_PROC (scm_gettimeofday, "gettimeofday", 0, 0, 0,
+SCM_DEFINE (scm_gettimeofday, "gettimeofday", 0, 0, 0,
(void),
"Returns a pair containing the number of seconds and microseconds since
1970-01-01 00:00:00 UTC, excluding leap seconds. Note: whether true
@@ -337,7 +337,7 @@ restorezone (SCM zone, char **oldenv, const char *subr)
}
-GUILE_PROC (scm_localtime, "localtime", 1, 1, 0,
+SCM_DEFINE (scm_localtime, "localtime", 1, 1, 0,
(SCM time, SCM zone),
"Returns an object representing the broken down components of @var{time},
an integer like the one returned by @code{current-time}. The time zone
@@ -407,7 +407,7 @@ used.")
}
#undef FUNC_NAME
-GUILE_PROC (scm_gmtime, "gmtime", 1, 0, 0,
+SCM_DEFINE (scm_gmtime, "gmtime", 1, 0, 0,
(SCM time),
"Returns an object representing the broken down components of @var{time},
an integer like the one returned by @code{current-time}. The values
@@ -465,7 +465,7 @@ bdtime2c (SCM sbd_time, struct tm *lt, int pos, const char *subr)
#endif
}
-GUILE_PROC (scm_mktime, "mktime", 1, 1, 0,
+SCM_DEFINE (scm_mktime, "mktime", 1, 1, 0,
(SCM sbd_time, SCM zone),
"@var{bd-time} is an object representing broken down time and @code{zone}
is an optional time zone specifier (otherwise the TZ environment variable
@@ -541,7 +541,7 @@ as @var{bd-time} but with normalized values.")
}
#undef FUNC_NAME
-GUILE_PROC (scm_tzset, "tzset", 0, 0, 0,
+SCM_DEFINE (scm_tzset, "tzset", 0, 0, 0,
(void),
"Initialize the timezone from the TZ environment variable or the system
default. Usually this is done automatically by other procedures which
@@ -554,7 +554,7 @@ is changed.")
}
#undef FUNC_NAME
-GUILE_PROC (scm_strftime, "strftime", 2, 0, 0,
+SCM_DEFINE (scm_strftime, "strftime", 2, 0, 0,
(SCM format, SCM stime),
"Formats a time specification @var{time} using @var{template}. @var{time}
is an object with time components in the form returned by @code{localtime}
@@ -593,7 +593,7 @@ is the formatted string.
}
#undef FUNC_NAME
-GUILE_PROC (scm_strptime, "strptime", 2, 0, 0,
+SCM_DEFINE (scm_strptime, "strptime", 2, 0, 0,
(SCM format, SCM string),
"Performs the reverse action to @code{strftime}, parsing @var{string}
according to the specification supplied in @var{template}. The