diff options
| author | Ludovic Court`es | 2007-09-24 15:57:32 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-09-24 15:57:32 +0000 |
| commit | ce4ef18ff7813828425eb65714d7ca7d4908831a (patch) | |
| tree | 268d11d7e902c08f1e9a2f3ad44d653bf0e0d7f7 | |
| parent | 33f508af77d56ba3c56947dc503744f24bae2529 (diff) | |
| download | skribilo-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
| -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)) |