diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-23 12:21:22 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-23 12:54:09 +0100 |
commit | c81c2ad3a59fdfb54260af2c159fac56de4daf3a (patch) | |
tree | 14b425ecee0185ca9ac3f6f285531da3a3186650 /libguile/load.c | |
parent | aafb4ed72414dd0dccc6ff27a59318adfda26abf (diff) | |
download | guile-c81c2ad3a59fdfb54260af2c159fac56de4daf3a.tar.gz |
use new scm_make_fluid_with_default
* libguile/load.c (scm_init_load):
* libguile/ports.c (scm_init_ports):
* libguile/read.c (scm_init_read): Use scm_make_fluid_with_default.
Diffstat (limited to 'libguile/load.c')
-rw-r--r-- | libguile/load.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/load.c b/libguile/load.c index 21008cbef..66e3cc40a 100644 --- a/libguile/load.c +++ b/libguile/load.c @@ -1043,8 +1043,7 @@ scm_init_load () scm_loc_fresh_auto_compile = SCM_VARIABLE_LOC (scm_c_define ("%fresh-auto-compile", SCM_BOOL_F)); - the_reader = scm_make_fluid (); - scm_fluid_set_x (the_reader, SCM_BOOL_F); + the_reader = scm_make_fluid_with_default (SCM_BOOL_F); scm_c_define("current-reader", the_reader); scm_c_define ("load-compiled", |