mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 19:30:36 +02:00
27 lines
754 B
Bash
Executable file
27 lines
754 B
Bash
Executable file
#!/bin/sh
|
|
|
|
# Choose a UTF-8 locale. The locale doesn't have to be available on the
|
|
# system since `environ_locale_charset' does not actually try to set it.
|
|
LC_ALL="en_US.UTF-8"
|
|
export LC_ALL
|
|
unset LANG
|
|
unset LC_CTYPE
|
|
|
|
exec guile -q -s "$0" "λ"
|
|
!#
|
|
|
|
;; Make sure our first argument is a lower-case lambda.
|
|
;;
|
|
;; Up to Guile 2.0.3 included, command-line arguments would not be converted
|
|
;; according to the locale settings; see
|
|
;; <http://lists.gnu.org/archive/html/guile-devel/2011-11/msg00026.html> for
|
|
;; details.
|
|
(if (string-contains-ci (setlocale LC_ALL) "utf")
|
|
(exit (string=? (cadr (program-arguments)) "λ"))
|
|
;; If we can't install a UTF-8 locale, skip the test
|
|
(exit 77))
|
|
|
|
;; Local Variables:
|
|
;; mode: scheme
|
|
;; coding: utf-8
|
|
;; End:
|