aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtes2005-07-02 17:06:50 +0000
committerLudovic Courtes2005-07-02 17:06:50 +0000
commit409e8a99bf90ddb8e5d40c6dd8559ad1d97b925f (patch)
treee361a3a6fa54192e5e3f7ca41749820f78cdb9f3
parentce811ece0affa2b20531f4191538dc5b5bafc510 (diff)
downloadskribilo-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.scm4
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)