Sindbad~EG File Manager

Current Path : /usr/local/share/doc/gettext/examples/hello-guile/
Upload File :
Current File : //usr/local/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)

Sindbad File Manager Version 1.0, Coded By Sindbad EG ~ The Terrorists