mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 16:30:19 +02:00
Code Activity

current-language really defaults to Scheme.

Browse source 
* module/system/base/language.scm (current-language): Default to 'scheme
  here, rather than relying on *current-language* always being bound.

Thanks to 亚光唐 <texnician@gmail.com> for the report.
This commit is contained in:
Andy Wingo 2011-06-17 19:57:24 +02:00
parent b88fef5519
commit c245d16a5b
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/system/base/language.scm
View file

@ -1,6 +1,6 @@
;;; Multi-language support ;;; Multi-language support
;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc. ;; Copyright (C) 2001, 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
@ -112,7 +112,6 @@
;;; ;;;
(define *current-language* (make-fluid)) (define *current-language* (make-fluid))
(fluid-set! *current-language* 'scheme)
(define (current-language) (define (current-language)
(fluid-ref *current-language*)) (or (fluid-ref *current-language*) 'scheme))