id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	difficulty
829	srfi-19: time-monotonic->julian-day returns procedure, not value	sjamaan	Kon Lovett	"{{{
#;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:"")"	defect	closed	minor	4.9.0	extensions	4.7.x	fixed	srfi-19