diff options
-rw-r--r-- | po/disfluid.pot | 6 | ||||
-rw-r--r-- | po/fr.po | 6 | ||||
-rw-r--r-- | src/scm/webid-oidc/catalog.scm | 3 |
3 files changed, 8 insertions, 7 deletions
diff --git a/po/disfluid.pot b/po/disfluid.pot index b4be54f..a810083 100644 --- a/po/disfluid.pot +++ b/po/disfluid.pot @@ -8,7 +8,7 @@ msgid "" msgstr "" "Project-Id-Version: disfluid SNAPSHOT\n" "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n" -"POT-Creation-Date: 2021-09-13 19:37+0200\n" +"POT-Creation-Date: 2021-09-13 19:38+0200\n" "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" "Language-Team: LANGUAGE <LL@li.org>\n" @@ -398,11 +398,11 @@ msgstr "" msgid "Cache entry for ~a varies.\n" msgstr "" -#: src/scm/webid-oidc/catalog.scm:166 +#: src/scm/webid-oidc/catalog.scm:167 msgid "invalid relative URI" msgstr "" -#: src/scm/webid-oidc/catalog.scm:245 +#: src/scm/webid-oidc/catalog.scm:246 #, scheme-format msgid "Unsupported delegate catalog URI scheme: ~s\n" msgstr "" @@ -2,7 +2,7 @@ msgid "" msgstr "" "Project-Id-Version: webid-oidc 0.0.0\n" "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n" -"POT-Creation-Date: 2021-09-13 19:37+0200\n" +"POT-Creation-Date: 2021-09-13 19:38+0200\n" "PO-Revision-Date: 2021-09-13 19:25+0200\n" "Last-Translator: Vivien Kraus <vivien@planete-kraus.eu>\n" "Language-Team: French <vivien@planete-kraus.eu>\n" @@ -412,11 +412,11 @@ msgstr "Échec de cache pour ~a : ~s~%" msgid "Cache entry for ~a varies.\n" msgstr "L’entrée de cache pour ~a varie.\n" -#: src/scm/webid-oidc/catalog.scm:166 +#: src/scm/webid-oidc/catalog.scm:167 msgid "invalid relative URI" msgstr "URI relative invalide" -#: src/scm/webid-oidc/catalog.scm:245 +#: src/scm/webid-oidc/catalog.scm:246 #, scheme-format msgid "Unsupported delegate catalog URI scheme: ~s\n" msgstr "Schéma d’URI pour un catalogue délégé non supporté : ~s\n" diff --git a/src/scm/webid-oidc/catalog.scm b/src/scm/webid-oidc/catalog.scm index e12ebe6..dd24ffb 100644 --- a/src/scm/webid-oidc/catalog.scm +++ b/src/scm/webid-oidc/catalog.scm @@ -15,6 +15,7 @@ ;; along with this program. If not, see <https://www.gnu.org/licenses/>. (define-module (webid-oidc catalog) + #:use-module (webid-oidc errors) #:use-module (web uri) #:use-module (web client) #:use-module (ice-9 match) @@ -118,7 +119,7 @@ (base ,new-base))) (do-examine-catalog rest candidate match-length (cons (string->uri* base new-base next-catalog) - next-catalogs))) + next-catalogs-rev))) (,else (match first-entry ((node-name attributes/children ...) |