UIFORM: Page title can accept a function as an argument

part-cw · Aug 22, 2016 · 5901822 · 5901822
1 parent 9e3516d
commit 5901822
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/modules/uiform/uiform.scm b/modules/uiform/uiform.scm
@@ -1239,7 +1239,7 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
          (uiform (uiget 'uiform))
          (nodes (table-ref uiform (uiget 'page) '()))
          (oldmap (uiget 'nodemap))
-         (title (car nodes))
+         (title (uiform:eval (car nodes)))
          (prv (uiform:eval (cadr nodes)))
          (nxt (uiform:eval (caddr nodes)))
          (nonodes (- (length nodes) 3))