diff options
| author | Jan Tuomi <jan@jantuomi.fi> | 2024-06-26 19:30:12 +0300 |
|---|---|---|
| committer | Jan Tuomi <jan@jantuomi.fi> | 2024-06-26 19:30:12 +0300 |
| commit | 0a2c7230225e80942380d4f2f90e47c5cb7a197b (patch) | |
| tree | 1475d0e534ed15a8af566711a4374055c58e064d /md-parser.scm | |
| parent | 47da2ad3925a122d8e97ebe66434ea06195b9eff (diff) | |
Add eof and empty result handling
Diffstat (limited to 'md-parser.scm')
| -rw-r--r-- | md-parser.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |