From c81c2ad3a59fdfb54260af2c159fac56de4daf3a Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 23 Nov 2011 12:21:22 +0100 Subject: 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. --- libguile/load.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'libguile/load.c') 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", -- cgit v1.2.1