diff options
Diffstat (limited to 'src/guile/skribilo/utils')
-rw-r--r-- | src/guile/skribilo/utils/justify.scm | 2 | ||||
-rw-r--r-- | src/guile/skribilo/utils/keywords.scm | 8 | ||||
-rw-r--r-- | src/guile/skribilo/utils/text-table.scm | 2 |
3 files changed, 6 insertions, 6 deletions
diff --git a/src/guile/skribilo/utils/justify.scm b/src/guile/skribilo/utils/justify.scm index 3ea7d27..e6ad8cb 100644 --- a/src/guile/skribilo/utils/justify.scm +++ b/src/guile/skribilo/utils/justify.scm @@ -413,7 +413,7 @@ ((width) width) (else - (error "justifier" "Illegal command" cmd)))))))) + (error "justifier" "Invalid command" cmd)))))))) ;*---------------------------------------------------------------------*/ ;* *justifiers* ... */ diff --git a/src/guile/skribilo/utils/keywords.scm b/src/guile/skribilo/utils/keywords.scm index ba5c026..fa13ed1 100644 --- a/src/guile/skribilo/utils/keywords.scm +++ b/src/guile/skribilo/utils/keywords.scm @@ -39,10 +39,10 @@ ((null? opt*) (reverse! res)) ((not (pair? opt*)) - (error "illegal body" opt*)) + (error "invalid body" opt*)) ((keyword? (car opt*)) (if (null? (cdr opt*)) - (error "illegal option" (car opt*)) + (error "invalid option" (car opt*)) (loop (cddr opt*) res))) (else (loop (cdr opt*) (cons (car opt*) res)))))) @@ -58,11 +58,11 @@ ((null? opt*) (reverse! res)) ((not (pair? opt*)) - (error "illegal options" opt*)) + (error "invalid options" opt*)) ((keyword? (car opt*)) (cond ((null? (cdr opt*)) - (error "illegal option" (car opt*))) + (error "invalid option" (car opt*))) ((memq (car opt*) out) (loop (cdr opt*) res)) (else diff --git a/src/guile/skribilo/utils/text-table.scm b/src/guile/skribilo/utils/text-table.scm index b45a102..dfb2473 100644 --- a/src/guile/skribilo/utils/text-table.scm +++ b/src/guile/skribilo/utils/text-table.scm @@ -170,7 +170,7 @@ (if (not align) 'left (error "table-cell-format" - "Illegal horizontal alignment" + "Invalid horizontal alignment" align))))) (lambda () (scribe->ascii body))))) (if (null? fmt) |