diff options
| author | Ludovic Courtès | 2012-05-13 23:24:57 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-05-14 01:02:48 +0200 |
| commit | 588770e376ff8f6f070ee1b4b75b3f81ab632ad6 (patch) | |
| tree | 0fadb8813e06fd41213fb6b16e6f6f6e97f40ea0 | |
| parent | 648a70e8929c1cf63a6093c4a78fe459c03b7273 (diff) | |
| download | skribilo-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.
| -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") |