diff options
| author | Ludovic Courtes | 2005-07-02 17:06:50 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2005-07-02 17:06:50 +0000 |
| commit | 409e8a99bf90ddb8e5d40c6dd8559ad1d97b925f (patch) | |
| tree | e361a3a6fa54192e5e3f7ca41749820f78cdb9f3 | |
| parent | ce811ece0affa2b20531f4191538dc5b5bafc510 (diff) | |
| download | skribilo-409e8a99bf90ddb8e5d40c6dd8559ad1d97b925f.tar.gz skribilo-409e8a99bf90ddb8e5d40c6dd8559ad1d97b925f.tar.lz skribilo-409e8a99bf90ddb8e5d40c6dd8559ad1d97b925f.zip | |
Cosmetic changes.
* src/guile/skribilo/resolve.scm: Minor cosmetic changes.
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-6
| -rw-r--r-- | src/guile/skribilo/resolve.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/guile/skribilo/resolve.scm b/src/guile/skribilo/resolve.scm index 14f36b2..a39bb77 100644 --- a/src/guile/skribilo/resolve.scm +++ b/src/guile/skribilo/resolve.scm @@ -178,7 +178,7 @@ (cadr c) n))) ((eq? (slot-ref n 'parent) 'unspecified) - (skribe-error 'resolve-parent "Orphan node" n)) + (skribe-error 'resolve-parent "orphan node" n)) (else (slot-ref n 'parent))))) @@ -211,7 +211,7 @@ (let ((c (assq (symbol-append cnt '-counter) e))) (if (not (pair? c)) (if (or (null? opt) (not (car opt)) (null? e)) - (skribe-error cnt "Orphan node" n) + (skribe-error cnt "orphan node" n) (begin (set-cdr! (last-pair e) (list (list (symbol-append cnt '-counter) 0) |