Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / lang / elisp / internals / time.scm

diff --git a/guile18/lang/elisp/internals/time.scm b/guile18/lang/elisp/internals/time.scm
new file mode 100644 (file)
index 0000000..10ac02d
--- /dev/null
+++ b/guile18/lang/elisp/internals/time.scm
@@ -0,0 +1,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)))))