diff options
| author | mmirate <mmirate@gmx.com> | 2013-01-23 17:22:21 -0500 |
|---|---|---|
| committer | mmirate <mmirate@gmx.com> | 2013-01-23 17:22:21 -0500 |
| commit | e9db0df4025081443d0310ef6730271c416e14fb (patch) | |
| tree | 6fea99849e9d389c16e36d06acc117b4d2bb2c72 | |
| parent | 89c555d047ab1a409c4a017f0edb6e535a1c3403 (diff) | |
mu-sexp-convert: Fix conversion of elisp times.
Previously, the first element was used where the second should have been.
In essence, whereas the algorithm is T[0]<<16 & T[1], the code was previously performing T[0]<<16 & T[0].
The timestamp produced was therefore inaccurate by up to about 18 hours.
| -rwxr-xr-x | contrib/mu-sexp-convert | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/mu-sexp-convert b/contrib/mu-sexp-convert index 18aba6c..b2835ac 100755 --- a/contrib/mu-sexp-convert +++ b/contrib/mu-sexp-convert @@ -89,7 +89,7 @@ into a list of pairs (define (etime->time_t t) "Convert elisp time object T into a time_t value." - (logior (ash (car t) 16) (car t))) + (logior (ash (car t) 16) (car (cdr t)))) (define (sexp->xml) "Convert string INPUT to XML, return the XML (string)." |