dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

current-language fluid refactoring

Browse source 
* module/system/base/compile.scm:
* module/system/base/language.scm (*current-language*, current-language):
  Move this fluid and thunk down to (system base language).
This commit is contained in:
Andy Wingo 2010-06-01 22:53:59 +02:00
commit 4288533bb3
2 changed files with 15 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/system/base/compile.scm
View file

@ -27,7 +27,6 @@
#:use-module (ice-9 optargs)
#:use-module (ice-9 receive)
#:export (syntax-error
*current-language*
compiled-file-name
compile-file
compile-and-load
@ -61,11 +60,6 @@
;;; Compiler
;;;
(define *current-language* (make-fluid))
(fluid-set! *current-language* 'scheme)
(define (current-language)
(fluid-ref *current-language*))
(define (call-once thunk)
(let ((entered #f))
(dynamic-wind