| #!@GUILE@ -s | |
| !# | |
| ;;; Example for use of GNU gettext. | |
| ;;; This file is in the public domain. | |
| ;;; Source code of the GNU guile program. | |
| (use-modules (ice-9 format)) | |
| (catch #t (lambda () (setlocale LC_ALL "")) (lambda args #f)) | |
| (textdomain "hello-guile") | |
| (bindtextdomain "hello-guile" "@localedir@") | |
| (define _ gettext) | |
| (display (_ "Hello, world!")) | |
| (newline) | |
| (format #t (_ "This program is running as process number ~D.") (getpid)) | |
| (newline) |