????

Your IP : 216.73.216.15

Current Path : C:/opt/msys64/ucrt64/share/doc/gettext/examples/hello-guile/
Upload File :
Current File : C:/opt/msys64/ucrt64/share/doc/gettext/examples/hello-guile/hello.scm

#!@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)