Re: [Chicken-users] (current-seconds) returning negative values

[Alejandro Forero Cuervo]

Hello.

> Urgh. Indeed. I'll change `current-seconds' to return
> a floating-point number.

Assuming that you get more than the current 29 bits (30 minus one
for negative numbers)  of precision, this will be  a good option,
as it maintains source code compatibility.

My current workaround  (that I coded to minimize  downtime in the
application I have at <http://bachue.com/>  until I get a working
version of Chicken)  is rather ugly, but I thought  I would share
it in case someone else finds it useful:

> (declare (unit time-ext))
> 
> (define seconds-base
>   (* 24 60 60 (+ (* 365 (- 2004 1970)) 8)))
> 
> (define (get-seconds)
>   (get-seconds-p (current-seconds)))
> 
> (define (get-seconds-p s)
>   (+ (- (expt 2 30) seconds-base) (+ (expt 2 30) s)))

As you can see,  I redefine the epoch to mean  the year 2004 (you
could  use other  values  by defining  seconds-base to  something
else).   Needless  to  say,  I call  ``get-seconds''  instead  of
``current-seconds'' and had  to modify the timestamps  that I had
stored in my data files.

Thanks, Felix!

Alejo.
http://bachue.com/alejo

Ps: I've been trying to subscribe to the list without success.  I
can't find any message sent to me as a result of filling the form
at http://mail.nongnu.org/mailman/listinfo/chicken-users.

--
The mere formulation of a problem is far more essential than its solution.
      -- Albert Einstein.

$0='!/sfldbi!yjoV0msfQ!sfiupob!utvK'x44;print map{("\e[7m \e[0m",chr ord
(chop$0)-1)[$_].("\n")[++$i%77]}split//,unpack'B*',pack'H*',($F='F'x19).
"F0F3E0607879CC1E0F0F339F3FF399C666733333CCF87F99E6133999999E67CFFCCF3".
"219CC1CCC033E7E660198CCE4E66798303873CCE60F3387$F"#Don't you love Perl?

signature.asc
Description: Digital signature