1#!@GUILE@ -s
2!#
3;;; Example for use of GNU gettext.
4;;; Copyright (C) 2004-2005 Free Software Foundation, Inc.
5;;; This file is in the public domain.
6
7;;; Source code of the GNU guile program.
8
9(use-modules (ice-9 format))
10
11(catch #t (lambda () (setlocale LC_ALL "")) (lambda args #f))
12(textdomain "hello-guile")
13(bindtextdomain "hello-guile" "@localedir@")
14(define _ gettext)
15
16(display (_ "Hello, world!"))
17(newline)
18(format #t (_ "This program is running as process number ~D.") (getpid))
19(newline)
20