diff options
| -rw-r--r-- | src/guile/skribilo/ast.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/guile/skribilo/ast.scm b/src/guile/skribilo/ast.scm index 21df4f3..8dee4d8 100644 --- a/src/guile/skribilo/ast.scm +++ b/src/guile/skribilo/ast.scm @@ -624,7 +624,8 @@ ;; Return true if N is the first paragraph in this container. (and (is-markup? n 'paragraph) (let* ((parent (ast-parent n)) - (siblings (markup-body parent))) + (siblings (and (markup? parent) + (markup-body parent)))) (and (pair? siblings) (eq? n (find (lambda (n) (is-markup? n 'paragraph)) |