diff options
| -rw-r--r-- | src/guile/skribilo/engine/info.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm index 8b1b049..811017b 100644 --- a/src/guile/skribilo/engine/info.scm +++ b/src/guile/skribilo/engine/info.scm @@ -418,6 +418,11 @@ (info-subsection-ref target e)) ((subsubsection) (info-subsubsection-ref target e)) + ((mark) + ;; We can't refer directly to marks, so refer to the + ;; enclosing section as an approximation. + (let ((parent (find1-up %block? target))) + (info-chapter-ref parent e))) (else (skribe-warning/ast 1 target "ref: don't know how to refer to target") |