Fix bug with empty or non existed output file

2014-05-23 09:06:41 +04:00 · 2014-05-23 09:06:41 +04:00 · c14f4c9d16
commit c14f4c9d16
parent ad9fb3446f
1 changed files with 3 additions and 2 deletions
--- 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)