From 0a2c7230225e80942380d4f2f90e47c5cb7a197b Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Wed, 26 Jun 2024 19:30:12 +0300 Subject: Add eof and empty result handling --- md-parser.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'md-parser.scm') diff --git a/md-parser.scm b/md-parser.scm index accc927..7cf3d45 100644 --- a/md-parser.scm +++ b/md-parser.scm @@ -40,7 +40,8 @@ (λ () (read-lines)))) (define (inner return) - (if (not (string=? "---" (car lines))) + (if (or (null? lines) + (not (string=? "---" (car lines)))) (return #f)) (define fm (collect-fm-lines (cdr lines))) -- cgit v1.3