Fix bug with empty or non existed output file

This commit is contained in:
Nikolay Puzanov 2014-05-23 09:06:41 +04:00
parent ad9fb3446f
commit c14f4c9d16

View File

@ -354,8 +354,9 @@
(cons item deadlines) (cons item deadlines)
(begin (begin
(format #t "Warning: Line '~a' is not a deadline. Skip.\n" line) (format #t "Warning: Line '~a' is not a deadline. Skip.\n" line)
deadlines)))))))))))))) deadlines)))))
'())) (else (loop record-type timerecords deadlines)))))))))))
(values '() '())))
;;; Print deadline record ;;; Print deadline record
(define (print-deadline dline) (define (print-deadline dline)