diff options
| author | Ludovic Courtès | 2008-11-21 00:59:38 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-11-21 00:59:38 +0100 |
| commit | 1f653cf292ed1740189a5b66e080e26b50784a6c (patch) | |
| tree | 2bc56b6461132362b50165453134987b4f5c1090 | |
| parent | 8dcbb8c09882a026fb06db6766a7cbcd2ec82d78 (diff) | |
| download | skribilo-1f653cf292ed1740189a5b66e080e26b50784a6c.tar.gz skribilo-1f653cf292ed1740189a5b66e080e26b50784a6c.tar.lz skribilo-1f653cf292ed1740189a5b66e080e26b50784a6c.zip | |
justify: Rename `output' to `output-justified' to avoid confusion.
* src/guile/skribilo/utils/justify.scm (output): Rename to...
(output-justified): this.
| -rw-r--r-- | src/guile/skribilo/utils/justify.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/guile/skribilo/utils/justify.scm b/src/guile/skribilo/utils/justify.scm index c0b4eb8..98b7277 100644 --- a/src/guile/skribilo/utils/justify.scm +++ b/src/guile/skribilo/utils/justify.scm @@ -27,7 +27,7 @@ *text-justification* *margin* - output output-token output-center + output-justified output-token output-center output-newline justification-width with-justification with-justification/noflush)) @@ -92,7 +92,7 @@ ;*---------------------------------------------------------------------*/ ;* output ... */ ;*---------------------------------------------------------------------*/ -(define (output str) +(define (output-justified str) ((car *justifiers*) 'output str)) ;*---------------------------------------------------------------------*/ |