diff options
| author | Ludovic Court`es | 2007-09-24 18:52:24 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-09-24 18:52:24 +0000 |
| commit | a6cecde2bb25647c7e017b58f89dd49ae2c0ce03 (patch) | |
| tree | 4855520dfd7576c8cfb6304d767c472e4caec858 /src | |
| parent | 5cf99f818b4ab5dbdcdd7c3109ab7acd6d770925 (diff) | |
| parent | ce4ef18ff7813828425eb65714d7ca7d4908831a (diff) | |
| download | skribilo-a6cecde2bb25647c7e017b58f89dd49ae2c0ce03.tar.gz skribilo-a6cecde2bb25647c7e017b58f89dd49ae2c0ce03.tar.lz skribilo-a6cecde2bb25647c7e017b58f89dd49ae2c0ce03.zip | |
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
Diffstat (limited to 'src')
| -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)) |