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