diff options
author | Ludovic Courtès | 2018-03-30 15:04:09 +0200 |
---|---|---|
committer | Ludovic Courtès | 2018-03-30 15:42:50 +0200 |
commit | 6c7778dd9ec5e6cdc635238619dd18bfecfdf555 (patch) | |
tree | df09548cc8d6185683d57e20ad0fcfb7479bc001 /src/guile/skribilo/verify.scm | |
parent | c3d1019b8f2d5af0637ae2f055099e51b9706675 (diff) | |
download | skribilo-6c7778dd9ec5e6cdc635238619dd18bfecfdf555.tar.gz skribilo-6c7778dd9ec5e6cdc635238619dd18bfecfdf555.tar.lz skribilo-6c7778dd9ec5e6cdc635238619dd18bfecfdf555.zip |
syntax: Rename '_' to 'G_' to avoid issues on Guile 2.2.
Failing to do that, literal '_' would not match in contexts such as
'match' patterns on Guile 2.2.
* src/guile/skribilo/utils/syntax.scm (_): Rename to...
(G_): ... this.
* po/Makevars (XGETTEXT_OPTIONS): Adjust accordingly.
* src/guile/skribilo.scm,
src/guile/skribilo/ast.scm,
src/guile/skribilo/biblio.scm,
src/guile/skribilo/biblio/author.scm,
src/guile/skribilo/condition.scm,
src/guile/skribilo/engine.scm,
src/guile/skribilo/engine/info.scm,
src/guile/skribilo/engine/lout.scm,
src/guile/skribilo/index.scm,
src/guile/skribilo/package/base.scm,
src/guile/skribilo/package/lncs.scm,
src/guile/skribilo/reader/rss-2.scm,
src/guile/skribilo/source.scm,
src/guile/skribilo/sui.scm,
src/guile/skribilo/biblio/template.scm,
src/guile/skribilo/verify.scm: Use 'G_' instead of '_'.
Diffstat (limited to 'src/guile/skribilo/verify.scm')
-rw-r--r-- | src/guile/skribilo/verify.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/guile/skribilo/verify.scm b/src/guile/skribilo/verify.scm index cf07e55..0f9bf5d 100644 --- a/src/guile/skribilo/verify.scm +++ b/src/guile/skribilo/verify.scm @@ -1,7 +1,7 @@ ;;; verify.scm -- Skribe AST verification. ;;; -*- coding: iso-8859-1 -*- ;;; -;;; Copyright 2005, 2007, 2008 Ludovic Courtès <ludo@gnu.org> +;;; Copyright 2005, 2007, 2008, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;; ;;; @@ -72,14 +72,14 @@ (option (unsupported-markup-option-error:option c))) (show-location node) (format (current-error-port) - (_ "option '~a' of markup '~a' not supported by engine '~a'~%") + (G_ "option '~a' of markup '~a' not supported by engine '~a'~%") option (and (markup? node) (markup-markup node)) (engine-ident engine)))) (else (format (current-error-port) - (_ "undefined verify error: ~a~%") + (G_ "undefined verify error: ~a~%") c)))) (register-error-condition-handler! verify-error? handle-verify-error) |