summaryrefslogtreecommitdiff
path: root/module/system/base/language.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-12-01 23:31:50 +0100
committerAndy Wingo <wingo@pobox.com>2011-12-01 23:31:50 +0100
commitb2208d2e987759270c712e35c8164394a47a52aa (patch)
tree1edd39e74a266fc53c075d328696e8fbf33eba5b /module/system/base/language.scm
parent3dc9f41900a0e9f915da3aa1eea6e0fae829c40d (diff)
parent738c899e4c1ab9d25cfbcd1010f34e0cce400bca (diff)
downloadguile-b2208d2e987759270c712e35c8164394a47a52aa.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
Conflicts: configure.ac libguile/fluids.c libguile/gc.c libguile/gc.h libguile/objcodes.c libguile/procprop.c libguile/vm.c module/ice-9/psyntax-pp.scm module/ice-9/psyntax.scm
Diffstat (limited to 'module/system/base/language.scm')
-rw-r--r--module/system/base/language.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/base/language.scm b/module/system/base/language.scm
index 10d2d7408..5b27bc98d 100644
--- a/module/system/base/language.scm
+++ b/module/system/base/language.scm
@@ -111,7 +111,7 @@
;;; Current language
;;;
-(define *current-language* (make-fluid))
+(define *current-language* (make-fluid 'scheme))
(define (current-language)
- (or (fluid-ref *current-language*) 'scheme))
+ (fluid-ref *current-language*))