aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/installer/locale.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/installer/locale.scm b/gnu/installer/locale.scm
index ccffb6d8ef..2ec0598abb 100644
--- a/gnu/installer/locale.scm
+++ b/gnu/installer/locale.scm
@@ -93,9 +93,10 @@ optionally, CODESET."
(define (supported-locales->locales supported-locales)
"Given SUPPORTED-LOCALES, a file produced by 'glibc-supported-locales',
return a list of locales where each locale is an alist."
- (map (match-lambda
- ((locale . codeset)
- (locale-string->locale locale codeset)))
+ (filter-map (match-lambda
+ (("C.UTF-8" . codeset) #f)
+ ((locale . codeset)
+ (locale-string->locale locale codeset)))
(call-with-input-file supported-locales read)))