From 86f94102f6bb98203462ae53dfcfcc39c18eb5c0 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Mon, 18 Mar 2013 10:41:08 +0100
Subject: `base' package: Insert an unbreakable space after `:text' in
 `numref'.

* src/guile/skribilo/package/base.scm (numref): Remove explicit call to
  `resolve!'; insert an unbreakable space after TEXT.
* NEWS: Update.
---
 src/guile/skribilo/package/base.scm | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm
index ea34308..64d6b97 100644
--- a/src/guile/skribilo/package/base.scm
+++ b/src/guile/skribilo/package/base.scm
@@ -1245,16 +1245,15 @@
                    ;; Loop until `number' is resolved.
                    n)
                   (else
-                   (let ((xref
-                          (ref :text
-                               (list (if text text "") " "
-                                     (if (number? number)
-                                         (markup-number-string target
-                                                               separator)
-                                         ""))
-                               :page page
-                               :handle (handle target))))
-                     (resolve! xref e env)))))))))
+                   (ref :text
+                        (list (if text text "")
+                              (if text (~) "")
+                              (if (number? number)
+                                  (markup-number-string target
+                                                        separator)
+                                  ""))
+                        :page page
+                        :handle (handle target)))))))))
 
 ;*---------------------------------------------------------------------*/
 ;*    resolve ...                                                      */
-- 
cgit 1.4.1