Fix bug with empty or non existed output file
This commit is contained in:
parent
ad9fb3446f
commit
c14f4c9d16
@ -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)
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user