On 7/17/05, Kon Lovett <[EMAIL PROTECTED]> 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 _______________________________________________ Chicken-users mailing list Chicken-users@nongnu.org http://lists.nongnu.org/mailman/listinfo/chicken-users