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