Move `define-inlinable' into the default namespace

[bpt/guile.git] / doc / ref / api-i18n.texi

diff --git a/doc/ref/api-i18n.texi b/doc/ref/api-i18n.texi
index b4d8121..97474a2 100644 (file)
--- a/doc/ref/api-i18n.texi
+++ b/doc/ref/api-i18n.texi
@@ -4,7 +4,6 @@
 @c   Free Software Foundation, Inc.
 @c See the file guile.texi for copying conditions.
 
-@page
 @node Internationalization
 @section Support for Internationalization
 
@@ -450,14 +449,17 @@ For the C locale, the default values are typically @code{"^[yY]"} and
 Here is an example:
 
 @example
+(use-modules (ice-9 rdelim))
 (format #t "Does Guile rock?~%")
-(let ((answer (read-line)))
+(let lp ((answer (read-line)))
   (cond ((string-match (locale-yes-regexp) answer)
-         "Yes it does.")
+         (format #t "High fives!~%"))
         ((string-match (locale-no-regexp) answer)
-         "No it doesn't.")
+         (format #t "How about now? Does it rock yet?~%")
+         (lp (read-line)))
         (else
-         "What do you mean?")))
+         (format #t "What do you mean?~%")
+         (lp (read-line)))))
 @end example
 
 For an internationalized yes/no string output, @code{gettext} should