Commit d76d4db7 authored by Erick Gallesio's avatar Erick Gallesio

Changed current-second in currents-seconds since it seems to be the

rule with other Scheme implementations
parent 94621d54
......@@ -18,7 +18,7 @@
;; USA.
;; Author: Erick Gallesio [eg@unice.fr]
;; Creation date: 26-Nov-2000 18:19 (eg)
;; Last file update: 12-Feb-2007 19:07 (eg)
;; Last file update: 5-May-2007 11:09 (eg)
;;
;; ======================================================================
......@@ -587,7 +587,7 @@ representation which consists is an integer which represents the
number of seconds elapsed since the ,(emph "Epoch") (00:00:00 on
January 1, 1970, Coordinated Universal Time --UTC). Dates can
also be represented with date structures.])
(insertdoc 'current-second)
(insertdoc 'current-seconds)
(insertdoc 'current-time)
(insertdoc 'time?)
(insertdoc 'time->seconds)
......
......@@ -22,7 +22,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 11-Jun-2002 17:54 (eg)
;;;; Last file update: 12-Feb-2007 19:21 (eg)
;;;; Last file update: 5-May-2007 11:10 (eg)
;;;;
......@@ -67,3 +67,7 @@
;; 12-Feb-2007 (v0.83)
(define delete-directory remove-directory)
;; 05-May-2007 (v0.83)
(define current-second current-seconds)
This diff is collapsed.
This diff is collapsed.
......@@ -16,7 +16,7 @@
*
* Author: Erick Gallesio [eg@kaolin.unice.fr]
* Creation date: 29-Mar-1994 10:57
* Last file update: 12-Feb-2007 19:07 (eg)
* Last file update: 5-May-2007 11:08 (eg)
*/
#include <unistd.h>
......@@ -795,14 +795,14 @@ DEFINE_PRIMITIVE("clock", clock, subr0, (void))
}
/*
<doc EXT current-second
* (current-second)
<doc EXT current-seconds
* (current-seconds)
*
* Returns the time since the Epoch (that is 00:00:00 UTC, January 1, 1970),
* measured in seconds.
doc>
*/
DEFINE_PRIMITIVE("current-second", current_second, subr0, (void))
DEFINE_PRIMITIVE("current-seconds", current_seconds, subr0, (void))
{
return STk_ulong2integer(time(NULL));
}
......@@ -1129,7 +1129,7 @@ int STk_init_system(void)
/* Declare primitives */
ADD_PRIMITIVE(clock);
ADD_PRIMITIVE(date);
ADD_PRIMITIVE(current_second);
ADD_PRIMITIVE(current_seconds);
ADD_PRIMITIVE(current_time);
ADD_PRIMITIVE(sleep);
ADD_PRIMITIVE(seconds2date);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment