summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/guile/skribilo/engine/info.scm14
-rw-r--r--tests/engines/info.test2
2 files changed, 8 insertions, 8 deletions
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) #\*))))
diff --git a/tests/engines/info.test b/tests/engines/info.test
index 2c6eb8f..389f8ba 100644
--- a/tests/engines/info.test
+++ b/tests/engines/info.test
@@ -30,7 +30,7 @@
(find-engine 'info))
(define node-next+prev+up
- (@@ (skribilo engine info) node-next+prev+top))
+ (@@ (skribilo engine info) node-next+prev+up))
(test-begin "info")