summaryrefslogtreecommitdiff
path: root/lang/elisp/internals/time.scm
diff options
context:
space:
mode:
Diffstat (limited to 'lang/elisp/internals/time.scm')
-rw-r--r--lang/elisp/internals/time.scm14
1 files changed, 0 insertions, 14 deletions
diff --git a/lang/elisp/internals/time.scm b/lang/elisp/internals/time.scm
deleted file mode 100644
index 10ac02ddc..000000000
--- a/lang/elisp/internals/time.scm
+++ /dev/null
@@ -1,14 +0,0 @@
-(define-module (lang elisp internals time)
- #:use-module (ice-9 optargs)
- #:export (format-time-string))
-
-(define* (format-time-string format-string #:optional time universal)
- (strftime format-string
- ((if universal gmtime localtime)
- (if time
- (+ (ash (car time) 16)
- (let ((time-cdr (cdr time)))
- (if (pair? time-cdr)
- (car time-cdr)
- time-cdr)))
- (current-time)))))