aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Court`es2007-09-24 15:57:32 +0000
committerLudovic Court`es2007-09-24 15:57:32 +0000
commitce4ef18ff7813828425eb65714d7ca7d4908831a (patch)
tree268d11d7e902c08f1e9a2f3ad44d653bf0e0d7f7 /src
parent33f508af77d56ba3c56947dc503744f24bae2529 (diff)
downloadskribilo-lcourtes@laas.fr--2006-libre,skribilo--devo--1.2.tar.gz
skribilo-lcourtes@laas.fr--2006-libre,skribilo--devo--1.2.tar.lz
skribilo-lcourtes@laas.fr--2006-libre,skribilo--devo--1.2.zip
Tolerate unresolved nodes in `first-paragraph?'.lcourtes@laas.fr--2006-libre,skribilo--devo--1.2
* 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
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/ast.scm3
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))