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/reader/rss-2.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/reader/rss-2.scm')
| -rwxr-xr-x | src/guile/skribilo/reader/rss-2.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/guile/skribilo/reader/rss-2.scm b/src/guile/skribilo/reader/rss-2.scm index 6bdd753..84f452a 100755 --- a/src/guile/skribilo/reader/rss-2.scm +++ b/src/guile/skribilo/reader/rss-2.scm @@ -1,6 +1,6 @@ ;;; rss-2.scm -- A reader for RSS 2.0 files. ;;; -;;; Copyright 2008, 2011 Ludovic Courtès <ludo@gnu.org> +;;; Copyright 2008, 2011, 2018 Ludovic Courtès <ludo@gnu.org> ;;; ;;; ;;; This file is part of Skribilo. @@ -67,7 +67,7 @@ (_ (raise (condition (&message - (message (_ "input is not a valid RSS 2.0 feed")))))))) + (message (G_ "input is not a valid RSS 2.0 feed")))))))) (define (channel-items channel) ;; Return the list of items of CHANNEL, an SXML tree. @@ -239,14 +239,14 @@ `(list ,@(loop (html->shtml body)))) (((? symbol? unsupported-tag) rest ...) - (warn* (_ "tag '~s' ignored") tag) + (warn* (G_ "tag '~s' ignored") tag) #f) ((lst ...) (map loop lst)) (_ - (warn* (_ "skipping tag '~a'~%") tag) + (warn* (G_ "skipping tag '~a'~%") tag) #f)))) (define (english-date->date str) @@ -297,7 +297,7 @@ (if (null? channels) (raise (condition (&message - (message (_ "no RSS 2.0 channels found in feed"))))) + (message (G_ "no RSS 2.0 channels found in feed"))))) (let ((title (channel-title (car channels))) (single? (null? (cdr channels)))) ;; When there's only one channel, promote items as chapters. |