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