diff options
Diffstat (limited to 'src/guile/skribilo/engine')
-rw-r--r-- | src/guile/skribilo/engine/base.scm | 2 | ||||
-rw-r--r-- | src/guile/skribilo/engine/context.scm | 4 | ||||
-rw-r--r-- | src/guile/skribilo/engine/html.scm | 10 | ||||
-rw-r--r-- | src/guile/skribilo/engine/html4.scm | 2 | ||||
-rw-r--r-- | src/guile/skribilo/engine/latex.scm | 10 |
5 files changed, 14 insertions, 14 deletions
diff --git a/src/guile/skribilo/engine/base.scm b/src/guile/skribilo/engine/base.scm index 9daf655..96344eb 100644 --- a/src/guile/skribilo/engine/base.scm +++ b/src/guile/skribilo/engine/base.scm @@ -398,7 +398,7 @@ (cond ((not (or bb (is-markup? b 'url-ref))) (skribe-error 'the-index - "Illegal entry" + "Invalid entry" b)) (note (let ((r (if bb diff --git a/src/guile/skribilo/engine/context.scm b/src/guile/skribilo/engine/context.scm index cef0136..b8c431d 100644 --- a/src/guile/skribilo/engine/context.scm +++ b/src/guile/skribilo/engine/context.scm @@ -675,7 +675,7 @@ (if (not (number? nb)) (skribe-error 'font - (format #f "Illegal font size ~s" size) + (format #f "Invalid font size ~s" size) nb) (+ cs nb)))))) (ne (make-engine (gensym "context") @@ -949,7 +949,7 @@ efmt '("jpg")))))) (if (not (string? img)) - (skribe-error 'context "Illegal image" file) + (skribe-error 'context "Invalid image" file) (begin (format #t "\\externalfigure[~A][frame=off" (strip-ref-base img)) (if zoom (format #t ",factor=~a" (inexact->exact zoom))) diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm index 3b06ae1..dc176af 100644 --- a/src/guile/skribilo/engine/html.scm +++ b/src/guile/skribilo/engine/html.scm @@ -728,7 +728,7 @@ (id (markup-ident n))) (unless (string? id) (skribe-error '&html-generic-header - (format #f "Illegal identifier '~a'" id) + (format #f "Invalid identifier '~a'" id) n)) ;; title (output (new markup @@ -1094,7 +1094,7 @@ (f (html-file c e))) (unless (string? id) (skribe-error 'toc - (format #f "illegal identifier '~a'" id) + (format #f "invalid identifier '~a'" id) c)) (display " <tr>") ;; blank columns @@ -1127,7 +1127,7 @@ b))) (if (not (container? bb)) (error 'toc - "Illegal body (container expected)" + "Invalid body (container expected)" (if (markup? bb) (markup-markup bb) "???")) @@ -1570,7 +1570,7 @@ (display "width=\"100%\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\"><tr><td align=\"right\">")) (else (skribe-error 'flush - "Illegal side" + "Invalid side" (markup-option n :side))))) :after (lambda (n e) (case (markup-option n :side) @@ -1830,7 +1830,7 @@ efmt '("gif" "jpg" "png")))))) (if (not (string? img)) - (skribe-error 'html "Illegal image" file) + (skribe-error 'html "Invalid image" file) (begin (format #t "<img src=\"~a\" border=\"0\"" img) (html-class n) diff --git a/src/guile/skribilo/engine/html4.scm b/src/guile/skribilo/engine/html4.scm index 5a362ad..a9b90de 100644 --- a/src/guile/skribilo/engine/html4.scm +++ b/src/guile/skribilo/engine/html4.scm @@ -146,7 +146,7 @@ (else (skribe-error 'font (format #f - "illegal font size ~s" sz) + "invalid font size ~s" sz) n)))))) (display "<span ") (html-class n) diff --git a/src/guile/skribilo/engine/latex.scm b/src/guile/skribilo/engine/latex.scm index d7d3432..67d8a4e 100644 --- a/src/guile/skribilo/engine/latex.scm +++ b/src/guile/skribilo/engine/latex.scm @@ -906,7 +906,7 @@ (if (not (number? nb)) (skribe-error 'font - (format #f "Illegal font size ~s" size) + (format #f "Invalid font size ~s" size) nb) (+ cs nb)))))) (ne (make-engine (gensym "latex") @@ -1138,7 +1138,7 @@ (luup (cdr cells) (+ nbcols (markup-option (car cells) :colspan)))) (else - (skribe-type-error 'tr "Illegal tr body, " row "pair"))))) + (skribe-type-error 'tr "Invalid tr body, " row "pair"))))) (let loop ((rows (markup-body t)) (nbcols 0)) (if (null? rows) @@ -1171,7 +1171,7 @@ (let ((cols (cond ((= nbcols 0) (skribe-error 'table - "Illegal empty table" + "Invalid empty table" n)) ((or (not width) (= nbcols 1)) (make-string nbcols #\c)) @@ -1268,7 +1268,7 @@ :options '() :action (lambda (n e) (if (not (is-markup? (ast-parent n) 'table)) - (skribe-type-error 'tr "Illegal parent, " (ast-parent n) + (skribe-type-error 'tr "Invalid parent, " (ast-parent n) "#<table>")) (let* ((parent (ast-parent n)) @@ -1416,7 +1416,7 @@ efmt '("eps")))))) (if (not (string? img)) - (skribe-error 'latex "Illegal image" file) + (skribe-error 'latex "Invalid image" file) (begin (format #t "\\epsfig{file=~a" (strip-ref-base img)) (if width (format #t ", width=~a" (latex-width width))) |