aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/package/base.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm
index 4cc5f93..b6f9780 100644
--- a/src/guile/skribilo/package/base.scm
+++ b/src/guile/skribilo/package/base.scm
@@ -535,19 +535,21 @@
(cond
((and (not (null? body)) (or file start stop definition))
(skribe-error 'source
- "file, start/stop, and definition are exclusive with body"
+ (_ "file, start/stop, and definition\
+ are exclusive with body")
body))
((and start stop definition)
(skribe-error 'source
- "start/stop are exclusive with a definition"
+ (_ "start/stop are exclusive with a definition")
body))
((and (or start stop definition) (not file))
(skribe-error 'source
- "start/stop and definition require a file specification"
+ (_ "start/stop and definition require a\
+ file specification")
file))
((and definition (not language))
(skribe-error 'source
- "definition requires a language specification"
+ (_ "definition requires a language specification")
definition))
((and file (not (string? file)))
(invalid-argument-error 'source file 'file))
@@ -557,7 +559,7 @@
(invalid-argument-error 'source stop 'stop))
((and (integer? start) (integer? stop) (> start stop))
(skribe-error 'source
- "start line > stop line"
+ (_ "start line is greater than stop line")
(format #f "~a/~a" start stop)))
((and language (not (language? language)))
(invalid-argument-error 'source language 'language))