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 ;;; Print last task
(define (cmd-lasttask sheet deadlines archives . unused) (define (cmd-lasttask sheet deadlines archives . unused)
(let ((last (last-task sheet))) (let ((last (last-task sheet)))
(when (not (null? last)) (format #t "~a\n" (if last (path->string (car last)) "")))
(format #t "~a\n" (path->string (car last)))))
(values #f #f #f)) (values #f #f #f))
;;; Deadlines ;;; Deadlines