[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Chicken-users] Re: bug report: inexact->exact && srfi-18
From: |
felix winkelmann |
Subject: |
Re: [Chicken-users] Re: bug report: inexact->exact && srfi-18 |
Date: |
Mon, 18 Jul 2005 09:24:52 +0200 |
On 7/17/05, Kon Lovett <address@hidden> wrote:
> Using Chicken 2.0
>
> #> (require-extension srfi-18)
> ; loading library srfi-18 ...
> #> (seconds->time 1)
>
Here's a patch. Thanks!
120,121c120,121
< (let* ([n2 (- n C_startup_time_seconds)] ; seconds since startup
< [ms (truncate (* 1000 (##sys#flonum-fraction n)))] ; milliseconds
---
> (let* ([n2 (max 0 (- n C_startup_time_seconds))] ; seconds since startup
> [ms (truncate (* 1000 (##sys#flonum-fraction (##sys#exact->inexact
> n))))] ; milliseconds
cheers,
felix