vasilito
ff4ff35918
Red Bear OS is a full fork. All sources must be available from git clone with zero network access. Removed gitignore rules that excluded fetched source trees under recipes/*/source/, local/recipes/kde/*/source/, local/recipes/qt/*/source/, and vendor source trees. Build artifacts (target/, build/, source.tar, *.o, *.so) remain excluded. 127291 files added — kernel, relibc, base, bootloader, pkgar, all KDE/Qt frameworks, mesa, wayland, DRM drivers, and every other recipe source.
19 lines
442 B
Scheme
19 lines
442 B
Scheme
#!@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)
|