Add asserts for nonempty dir paths to make filesystem ops safer

1 files changed, 4 insertions, 0 deletions

diff --git a/main.scm b/main.scm
index 4b594c4..6a94ee3 100644
--- a/main.scm
+++ b/main.scm
@@ -39,6 +39,10 @@
 (define template-path (or (get-environment-variable "PANDOC_TEMPLATE")
 			  "template.html"))
 
+(assert (> (string-length src-dir) 0))
+(assert (> (string-length out-dir) 0))
+(assert (> (string-length template-path) 0))
+
 (define (process-path path)
   (match path
     [(? is-md?) (process-md path)]