Update internal to avoid precision destruction

Author: psionic-k

test/test.el

@@ -79,6 +79,10 @@
   (should (equal (floor (ts-unix (ts-now)))
                  (string-to-number (format-time-string "%s")))))
 
+(ert-deftest ts-internal ()
+  (should (and (consp (ts-internal (ts-now)))
+               (not (proper-list-p (ts-internal (ts-now)))))))
+
 ;;;;; Adjustors
 
 ;;;;;; Non-destructive

ts.el

@@ -222,7 +222,7 @@ slot `year' and alias `y' would create an alias `ts-y')."
   ;; MAYBE: Add tz-offset-minutes
 
   (internal
-   nil :accessor-init (apply #'encode-time (decode-time (ts-unix struct))))
+   nil :accessor-init (funcall #'time-convert (ts-unix struct) t))
   (unix
    nil :accessor-init (pcase-let* (((cl-struct ts second minute hour day month year) struct))
                         (if (and second minute hour day month year)