Tolerate unresolved nodes in `first-paragraph?'.

* src/guile/skribilo/ast.scm (first-paragraph?): Check whether PARENT is
  a markup.

git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-168

2 files changed, 19 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index cf3a624..1443955 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,23 @@
 # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
 #
 
+2007-09-24 18:52:24 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-168
+
+    Summary:
+      Tolerate unresolved nodes in `first-paragraph?'.
+    Revision:
+      skribilo--devo--1.2--patch-168
+
+    * src/guile/skribilo/ast.scm (first-paragraph?): Check whether PARENT is
+      a markup.
+
+    modified files:
+     ChangeLog src/guile/skribilo/ast.scm
+
+    new patches:
+     lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-110
+
+
 2007-09-20 17:20:55 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-167
 
     Summary:
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))