Improved support for Unicode title case in Guile's string and character APIs.

[bpt/guile.git] / module / ice-9 / i18n.scm

diff --git a/module/ice-9/i18n.scm b/module/ice-9/i18n.scm
index 2a8e741..52d7cb4 100644 (file)
--- a/module/ice-9/i18n.scm
+++ b/module/ice-9/i18n.scm
@@ -1,11 +1,11 @@
 ;;;; i18n.scm --- internationalization support
 
-;;;;   Copyright (C) 2006, 2007 Free Software Foundation, Inc.
+;;;;   Copyright (C) 2006, 2007, 2009 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
 ;;;; License as published by the Free Software Foundation; either
-;;;; version 2.1 of the License, or (at your option) any later version.
+;;;; version 3 of the License, or (at your option) any later version.
 ;;;;
 ;;;; This library is distributed in the hope that it will be useful,
 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -16,7 +16,7 @@
 ;;;; License along with this library; if not, write to the Free Software
 ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 
-;;; Author: Ludovic Courtès <ludovic.courtes@laas.fr>
+;;; Author: Ludovic Courtès <ludo@gnu.org>
 
 ;;; Commentary:
 ;;;
@@ -42,8 +42,8 @@
            char-locale-ci<? char-locale-ci>? char-locale-ci=?
 
            ;; character mapping
-           char-locale-downcase char-locale-upcase
-           string-locale-downcase string-locale-upcase
+           char-locale-downcase char-locale-upcase char-locale-titlecase
+           string-locale-downcase string-locale-upcase string-locale-titlecase
 
            ;; reading numbers
            locale-string->integer locale-string->inexact
@@ -83,9 +83,8 @@
            locale-yes-regexp locale-no-regexp))
 
 
-(eval-case
- ((load-toplevel compile-toplevel)
-  (load-extension "libguile-i18n-v-0" "scm_init_i18n")))
+(eval-when (eval load compile)
+  (load-extension "libguile" "scm_init_i18n"))
 
 \f
 ;;;