mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

use new scm_make_fluid_with_default

Browse source 
* libguile/load.c (scm_init_load):
* libguile/ports.c (scm_init_ports):
* libguile/read.c (scm_init_read): Use scm_make_fluid_with_default.
This commit is contained in:
Andy Wingo 2011-11-23 12:21:22 +01:00
parent aafb4ed724
commit c81c2ad3a5
3 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/load.c
View file

@ -1043,8 +1043,7 @@ scm_init_load ()
scm_loc_fresh_auto_compile scm_loc_fresh_auto_compile
= SCM_VARIABLE_LOC (scm_c_define ("%fresh-auto-compile", SCM_BOOL_F)); = SCM_VARIABLE_LOC (scm_c_define ("%fresh-auto-compile", SCM_BOOL_F));
the_reader = scm_make_fluid (); the_reader = scm_make_fluid_with_default (SCM_BOOL_F);
scm_fluid_set_x (the_reader, SCM_BOOL_F);
scm_c_define("current-reader", the_reader); scm_c_define("current-reader", the_reader);
scm_c_define ("load-compiled", scm_c_define ("load-compiled",

10
libguile/ports.c
View file

@ -2549,13 +2549,13 @@ scm_init_ports ()
#include "libguile/ports.x" #include "libguile/ports.x"
/* Use Latin-1 as the default port encoding. */ /* Use Latin-1 as the default port encoding. */
SCM_VARIABLE_SET (default_port_encoding_var, scm_make_fluid ()); SCM_VARIABLE_SET (default_port_encoding_var,
scm_fluid_set_x (SCM_VARIABLE_REF (default_port_encoding_var), SCM_BOOL_F); scm_make_fluid_with_default (SCM_BOOL_F));
scm_port_encoding_init = 1; scm_port_encoding_init = 1;
SCM_VARIABLE_SET (scm_conversion_strategy, scm_make_fluid ()); SCM_VARIABLE_SET (scm_conversion_strategy,
scm_fluid_set_x (SCM_VARIABLE_REF (scm_conversion_strategy), scm_make_fluid_with_default
scm_from_int ((int) SCM_FAILED_CONVERSION_QUESTION_MARK)); (scm_from_int ((int) SCM_FAILED_CONVERSION_QUESTION_MARK)));
scm_conversion_strategy_init = 1; scm_conversion_strategy_init = 1;
} }

3
libguile/read.c
View file

@ -1759,8 +1759,7 @@ scm_init_read ()
{ {
SCM read_hash_procs; SCM read_hash_procs;
read_hash_procs = scm_make_fluid (); read_hash_procs = scm_make_fluid_with_default (SCM_EOL);
scm_fluid_set_x (read_hash_procs, SCM_EOL);
scm_i_read_hash_procedures = scm_i_read_hash_procedures =
SCM_VARIABLE_LOC (scm_c_define ("%read-hash-procedures", read_hash_procs)); SCM_VARIABLE_LOC (scm_c_define ("%read-hash-procedures", read_hash_procs));