From ce4ef18ff7813828425eb65714d7ca7d4908831a Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Mon, 24 Sep 2007 15:57:32 +0000 Subject: Tolerate unresolved nodes in `first-paragraph?'. * src/guile/skribilo/ast.scm (first-paragraph?): Check whether PARENT is a markup. git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-110 --- src/guile/skribilo/ast.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/guile') 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)) -- cgit v1.2.3