diff options
Diffstat (limited to 'lang/elisp/primitives/time.scm')
-rw-r--r-- | lang/elisp/primitives/time.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/lang/elisp/primitives/time.scm b/lang/elisp/primitives/time.scm deleted file mode 100644 index 4b2c70c1a..000000000 --- a/lang/elisp/primitives/time.scm +++ /dev/null @@ -1,17 +0,0 @@ -(define-module (lang elisp primitives time) - #:use-module (lang elisp internals time) - #:use-module (lang elisp internals fset) - #:use-module (ice-9 optargs)) - -(fset 'current-time - (lambda () - (let ((now (current-time))) - (list (ash now -16) - (logand now (- (ash 1 16) 1)) - 0)))) - -(fset 'format-time-string format-time-string) - -(fset 'current-time-string - (lambda* (#:optional specified-time) - (format-time-string "%a %b %e %T %Y" specified-time))) |