mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Have "guile-tools compile" use the current locale.

Browse source 
* meta/guile-tools.in (main): Install the user's locale.
This commit is contained in:
Ludovic Courtès 2010-01-10 23:48:43 +01:00
parent bce5cb5641
commit e6251e7bd9
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
meta/guile-tools.in
View file

@ -6,7 +6,7 @@ exec guile $GUILE_FLAGS -e '(@@ (guile-tools) main)' -s "$0" "$@"
;;;; guile-tools --- running scripts bundled with Guile
;;;; Andy Wingo <wingo@pobox.com> --- April 2009
;;;;
;;;; Copyright (C) 2009 Free Software Foundation, Inc.
;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@ -109,6 +109,7 @@ PROGRAM is run with ARGS.
m)))
(define (main args)
(setlocale LC_ALL "")
(if (or (equal? (cdr args) '())
(equal? (cdr args) '("list")))
(list-scripts)