diff options
| -rw-r--r-- | src/guile/skribilo/engine/info.scm | 14 | ||||
| -rw-r--r-- | tests/engines/info.test | 2 |
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") |