From 588770e376ff8f6f070ee1b4b75b3f81ab632ad6 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sun, 13 May 2012 23:24:57 +0200
Subject: info: Rename `node-next+prev+top' to `node-next+prev+up'.

* src/guile/skribilo/engine/info.scm (node-next+prev+top): Rename to...
  (node-next+prev+up): ... this.  Update callers.

* tests/engines/info.test (node-next+prev+up): Update accordingly.
---
 src/guile/skribilo/engine/info.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index 0ca7e97..9b19de5 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -87,9 +87,9 @@
            (info-dest) node next next prev prev up))
 
 ;*---------------------------------------------------------------------*/
-;*    node-next+prev+top ...                                           */
+;*    node-next+prev+up ...                                           */
 ;*---------------------------------------------------------------------*/
-(define (node-next+prev+top section e)
+(define (node-next+prev+up section e)
   ;; Return the next, previous, and up node of SECTION.
 
   (define (ast-prev+next n)
@@ -300,7 +300,7 @@
 
    ;; the main node
    (receive (next prev top)
-      (node-next+prev+top obj e)
+      (node-next+prev+up obj e)
       (newline)
       (info-node "Top" next prev top))
    ;; the title
@@ -619,7 +619,7 @@
               (output-flush *margin*)
               (let ((t (block-title n e)))
                 (receive (next prev top)
-                    (node-next+prev+top n e)
+                    (node-next+prev+up n e)
                   (info-node t next prev top)
                   (print t)
                   (print (make-string (string-length t) #\=))))
@@ -638,7 +638,7 @@
               (output-flush *margin*)
               (let ((t (block-title n e)))
                 (receive (next prev top)
-                    (node-next+prev+top n e)
+                    (node-next+prev+up n e)
                   (info-node t next prev top)
                   (print t)
                   (print (make-string (string-length t) #\-))))
@@ -654,7 +654,7 @@
               (output-flush *margin*)
               (let ((t (block-title n e)))
                 (receive (next prev top)
-                    (node-next+prev+top n e)
+                    (node-next+prev+up n e)
                   (info-node t next prev top)
                   (print t)
                   (print (make-string (string-length t) #\~))))
@@ -680,7 +680,7 @@
               (output-flush *margin*)
               (let ((t (block-title n e)))
                 (receive (next prev top)
-                    (node-next+prev+top n e)
+                    (node-next+prev+up n e)
                   (info-node t next prev top)
                   (print t)
                   (print (make-string (string-length t) #\*))))
-- 
cgit v1.2.3