From 0b795255aef6fde31be6da15dd49fc5484ddb587 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=9D=D0=B8=D0=BA=D0=BE=D0=BB=D0=B0=D0=B9=20=D0=9F=D1=83?=
 =?UTF-8?q?=D0=B7=D0=B0=D0=BD=D0=BE=D0=B2?= <np@rnd.stcnet.ru>
Date: Mon, 19 Nov 2018 15:34:30 +0300
Subject: [PATCH] Fix error when timesheet is empty

---
 worktimer.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/worktimer.scm b/worktimer.scm
index eab3fc1..847aaf0 100755
--- a/worktimer.scm
+++ b/worktimer.scm
@@ -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