aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2012-05-13 23:24:57 +0200
committerLudovic Courtès2012-05-14 01:02:48 +0200
commit588770e376ff8f6f070ee1b4b75b3f81ab632ad6 (patch)
tree0fadb8813e06fd41213fb6b16e6f6f6e97f40ea0 /src/guile
parent648a70e8929c1cf63a6093c4a78fe459c03b7273 (diff)
downloadskribilo-588770e376ff8f6f070ee1b4b75b3f81ab632ad6.tar.gz
skribilo-588770e376ff8f6f070ee1b4b75b3f81ab632ad6.tar.lz
skribilo-588770e376ff8f6f070ee1b4b75b3f81ab632ad6.zip
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.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/info.scm14
1 files changed, 7 insertions, 7 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) #\*))))