Opened 10 years ago

Closed 10 years ago

#829 closed defect (fixed)

srfi-19: time-monotonic->julian-day returns procedure, not value

Reported by: sjamaan Owned by: Kon Lovett
Priority: minor Milestone: 4.9.0
Component: extensions Version: 4.7.x
Keywords: srfi-19 Cc:
Estimated difficulty:

Description

#;1> (use srfi-19)
#;2> (define t (current-time time-monotonic))
#;3> (time-monotonic->julian-day t)
#<procedure>
#;4> (#3 t) ;; This is of course incorrect
70734554131963/28800000

It looks like this is a small mistake which is simple to fix:

Index: srfi-19-support.scm
===================================================================
--- srfi-19-support.scm	(revision 26685)
+++ srfi-19-support.scm	(working copy)
@@ -1279,7 +1279,7 @@
   (let ((sec (%time-second tim)))
     (tm:seconds->julian-day (%time-nanosecond tim) (- sec (leap-second-delta sec))) ) )
 
-(define (tm:time-monotonic->julian-day tim) tm:time-tai->julian-day)
+(define tm:time-monotonic->julian-day tm:time-tai->julian-day)
 
 (define (tm:time->julian-day tim)
   (case (%time-type tim)

This bug was found by the scrutinizer, see http://tests.call-cc.org/master/linux/x86/2012/05/12/salmonella-report/install/srfi-19.html (search for the string "Warning:")

Change History (1)

comment:1 Changed 10 years ago by Kon Lovett

Resolution: fixed
Status: newclosed

Rel 3.3.1

Note: See TracTickets for help on using tickets.