aboutsummaryrefslogtreecommitdiff
path: root/src/guile/skribilo/engine
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile/skribilo/engine')
-rw-r--r--src/guile/skribilo/engine/base.scm2
-rw-r--r--src/guile/skribilo/engine/context.scm4
-rw-r--r--src/guile/skribilo/engine/html.scm10
-rw-r--r--src/guile/skribilo/engine/html4.scm2
-rw-r--r--src/guile/skribilo/engine/latex.scm10
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)))