summaryrefslogtreecommitdiff
path: root/libguile/stime.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/stime.c')
-rw-r--r--libguile/stime.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/stime.c b/libguile/stime.c
index f736fb7f9..1338f9598 100644
--- a/libguile/stime.c
+++ b/libguile/stime.c
@@ -129,7 +129,7 @@ extern int errno;
struct timeb scm_your_base = {0};
-SCM_DEFINE(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 @@ SCM_DEFINE(scm_get_internal_real_time, "get-internal-real-time", 0, 0, 0,
timet scm_your_base = 0;
-SCM_DEFINE(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
@@ -215,7 +215,7 @@ terminated child processes.
static long scm_my_base = 0;
-SCM_DEFINE(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
-SCM_DEFINE(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.")
@@ -573,7 +573,7 @@ is the formatted string.
int len;
SCM result;
- SCM_VALIDATE_ROSTRING(1,format);
+ SCM_VALIDATE_ROSTRING (1,format);
bdtime2c (stime, &t, SCM_ARG2, FUNC_NAME);
SCM_COERCE_SUBSTR (format);
@@ -611,8 +611,8 @@ were used for the conversion.")
struct tm t;
char *fmt, *str, *rest;
- SCM_VALIDATE_ROSTRING(1,format);
- SCM_VALIDATE_ROSTRING(2,string);
+ SCM_VALIDATE_ROSTRING (1,format);
+ SCM_VALIDATE_ROSTRING (2,string);
SCM_COERCE_SUBSTR (format);
SCM_COERCE_SUBSTR (string);