blob: 10ac02ddc7fdad2c8a1e50a8fad89aa6a3547fbd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(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)))))
|