diff options
| -rw-r--r-- | src/scm/webid-oidc/web-i18n.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/scm/webid-oidc/web-i18n.scm b/src/scm/webid-oidc/web-i18n.scm index d3a773f..54d0c36 100644 --- a/src/scm/webid-oidc/web-i18n.scm +++ b/src/scm/webid-oidc/web-i18n.scm @@ -36,17 +36,17 @@ (make-mutex)) (define sort-qlist - (cute sort <> + (cute stable-sort <> (match-lambda* (((px . _) (py . _)) - (>= px py))))) + (> px py))))) (define get-preferred-language (match-lambda ((? request? (= request-accept-language (= sort-qlist - (((_ . language) _ ...))))) + ((_ . language) _ ...)))) (get-preferred-language language)) ((? string? (= (cute string-split <> #\-) |