diff options
| author | Ludovic Courtès | 2015-03-11 11:13:20 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2015-03-11 11:23:25 +0100 |
| commit | 48a66db9dad53b1078756df775a4efd06d649e28 (patch) | |
| tree | acac0cd594466ffc7882fabe25438caacc86fb88 /src/guile/skribilo/package/base.scm | |
| parent | 4425f9d10eeac36191f281dfd94f342bf7e2b15f (diff) | |
| download | skribilo-48a66db9dad53b1078756df775a4efd06d649e28.tar.gz skribilo-48a66db9dad53b1078756df775a4efd06d649e28.tar.lz skribilo-48a66db9dad53b1078756df775a4efd06d649e28.zip | |
Use quotes instead of backticks in user-facing messages.
Suggested by Benno Schulenberg <coordinator@translationproject.org>.
* doc/modules/skribilo/documentation/api.scm,
src/guile/skribilo.scm, src/guile/skribilo/condition.scm,
src/guile/skribilo/engine/lout.scm,
src/guile/skribilo/package/base.scm,
src/guile/skribilo/package/jfp.scm,
src/guile/skribilo/package/lncs.scm,
src/guile/skribilo/package/pie.scm,
src/guile/skribilo/package/slide/latex.scm,
src/guile/skribilo/utils/compat.scm,
src/guile/skribilo/ast.scm,
src/guile/skribilo/biblio.scm,
src/guile/skribilo/engine/html.scm,
src/guile/skribilo/engine/info.scm,
src/guile/skribilo/index.scm,
src/guile/skribilo/package/web-book2.scm,
src/guile/skribilo/reader/rss-2.scm,
src/guile/skribilo/source.scm,
src/guile/skribilo/utils/compat.scm,
src/guile/skribilo/verify.scm: Change `foo' to 'foo'.
Diffstat (limited to 'src/guile/skribilo/package/base.scm')
| -rw-r--r-- | src/guile/skribilo/package/base.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm index 64d6b97..3941cd1 100644 --- a/src/guile/skribilo/package/base.scm +++ b/src/guile/skribilo/package/base.scm @@ -143,7 +143,7 @@ (let ((body (the-body opts))) (cond (section - (error 'handle "Illegal handle `section' option" section) + (error 'handle "Illegal handle 'section' option" section) (new unresolved (loc &invocation-location) (proc (lambda (n e env) @@ -652,7 +652,7 @@ (if (not (is-markup? r markup)) (skribe-warning 2 for - (format #f "illegal `~a' element, `~a' expected" + (format #f "illegal '~a' element, '~a' expected" (if (markup? r) (markup-markup r) (type-name r)) @@ -813,12 +813,12 @@ ((not (memq align '(#f center left right))) (skribe-error 'tc - "align should be one of 'left', `center', or `right'" + "align should be one of 'left', 'center', or 'right'" align)) ((not (memq valign '(#f top middle center bottom))) (skribe-error 'tc - "valign should be one of 'top', `middle', `center', or `bottom'" + "valign should be one of 'top', 'middle', 'center', or 'bottom'" valign)) (else (new container @@ -1025,7 +1025,7 @@ ((not (string? (car bd))) (skribe-type-error 'mark "Illegal ident:" (car bd) "string")) (ident - (skribe-error 'mark "Illegal `ident:' option" ident)) + (skribe-error 'mark "Illegal 'ident:' option" ident)) (else (let* ((bs (ast->string bd)) (n (new markup @@ -1067,7 +1067,7 @@ (page #f) (sort-bib-refs bib-sort-refs/number)) (define (unref text kind) - (let ((msg (format #f "can't find `~a': " kind))) + (let ((msg (format #f "can't find '~a': " kind))) (warning/loc 1 &invocation-location 'ref msg text) (new markup (markup 'unref) @@ -1230,7 +1230,7 @@ (cond ((not target) (skribe-warning/ast 1 n 'numref - "can't find `ident': " + "can't find 'ident': " ident) (new markup (markup 'unref) @@ -1299,7 +1299,7 @@ (labels 'number)) (if (not (memq count '(partial full))) (skribe-error 'the-bibliography - "count must be either `partial' or `full'" + "count must be either 'partial' or 'full'" count) (let ((label-proc (case labels ((number) assign-entries-numbers!) |