mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

Install the current locale when starting the REPL.

Browse source 
* module/ice-9/top-repl.scm (top-repl): Install the current locale.
This commit is contained in:
Ludovic Courtès 2011-01-24 23:37:46 +01:00
parent da288f50bf
commit 667230810b
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/ice-9/top-repl.scm
View file

@ -1,7 +1,7 @@
;;; -*- mode: scheme; coding: utf-8; -*- ;;; -*- mode: scheme; coding: utf-8; -*-
;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010 ;;;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;;;; Free Software Foundation, Inc. ;;;; 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -64,6 +64,8 @@
(call-with-sigint (call-with-sigint
(lambda () (lambda ()
(and (defined? 'setlocale)
(setlocale LC_ALL ""))
(let ((status (start-repl 'scheme))) (let ((status (start-repl 'scheme)))
(run-hook exit-hook) (run-hook exit-hook)
status))))) status)))))