Fix error when timesheet is empty

This commit is contained in:
Николай Пузанов 2018-11-19 15:34:30 +03:00
parent 74fd7c820d
commit 0b795255ae

View File

@ -718,8 +718,7 @@
;;; Print last task
(define (cmd-lasttask sheet deadlines archives . unused)
(let ((last (last-task sheet)))
(when (not (null? last))
(format #t "~a\n" (path->string (car last)))))
(format #t "~a\n" (if last (path->string (car last)) "")))
(values #f #f #f))
;;; Deadlines