diff options
Diffstat (limited to 'lang/elisp/internals/time.scm')
-rw-r--r-- | lang/elisp/internals/time.scm | 14 |
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))))) |