From c14f4c9d16245c34ede9cc977c4b8affb606f97a Mon Sep 17 00:00:00 2001
From: Nikolay Puzanov <punzik@gmail.com>
Date: Fri, 23 May 2014 09:06:41 +0400
Subject: [PATCH] Fix bug with empty or non existed output file

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

diff --git a/worktimer.scm b/worktimer.scm
index 9267a39..01af6eb 100755
--- a/worktimer.scm
+++ b/worktimer.scm
@@ -354,8 +354,9 @@
                                     (cons item deadlines)
                                     (begin
                                       (format #t "Warning: Line '~a' is not a deadline. Skip.\n" line)
-                                      deadlines))))))))))))))
-      '()))
+                                      deadlines)))))
+                       (else (loop record-type timerecords deadlines)))))))))))
+      (values '() '())))
 
 ;;; Print deadline record
 (define (print-deadline dline)