Fix bug with wrong sort a timerecords

This commit is contained in:
Nikolay Puzanov 2014-05-20 17:31:14 +04:00
parent fbb072bcfc
commit 8ae233c57c

View File

@ -216,7 +216,7 @@
(if (and (not a-stop-time) (if (and (not a-stop-time)
(not b-stop-time)) (not b-stop-time))
#f #f
(if (not a-stop-time) #t (if (not a-stop-time) #f
(date<? a-start-time b-start-time))))) (date<? a-start-time b-start-time)))))
;;; Returns last record of the sheet or #f if sheet is empty. ;;; Returns last record of the sheet or #f if sheet is empty.