summaryrefslogtreecommitdiffstats
path: root/main.scm
diff options
context:
space:
mode:
Diffstat (limited to 'main.scm')
-rw-r--r--main.scm11
1 files changed, 8 insertions, 3 deletions
diff --git a/main.scm b/main.scm
index 9e6b9ad..672777c 100644
--- a/main.scm
+++ b/main.scm
@@ -41,10 +41,15 @@
(assert (> (string-length out-dir) 0))
(assert (> (string-length template-path) 0))
-
(define (preprocess-md md-path out-path)
- (define md (with-input-from-file md-path
- (λ () (read-string #f))))
+ (define md-or-eof (with-input-from-file md-path
+ (λ () (read-string #f))))
+
+ (define md (if (eof-object? md-or-eof)
+ (begin (printf "[warn] \"~A\" is empty, using an empty md file...~%" md-path)
+ "")
+ ;; else
+ md-or-eof))
(define cwd (decompose-pathname md-path))
(define out-path-dir (decompose-pathname out-path))