diff options
author | Gary Houston <ghouston@arglist.com> | 2002-04-20 20:57:09 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 2002-04-20 20:57:09 +0000 |
commit | 5e423a39aba9c1a7a1e47ef6016c6ed19abf8ed4 (patch) | |
tree | 30960f6cc5a69e39c4f7a89afe6ec44d28709482 /libguile/root.c | |
parent | ce9d056227b0548cf5c1ca11dab10dfe0b8e491c (diff) | |
download | guile-5e423a39aba9c1a7a1e47ef6016c6ed19abf8ed4.tar.gz |
* removal of unused fields in root state (thanks to Christopher
Cramer for pointing out the disuse.)
* root.h (scm_root_state): removed def_inp, def_outp, def_errp.
* root.c (root_mark): don't mark them.
(scm_make_root): don't set them to #f.
* init.c (scm_init_standard_ports): don't initialise with the
default ports.
Diffstat (limited to 'libguile/root.c')
-rw-r--r-- | libguile/root.c | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/libguile/root.c b/libguile/root.c index f26843ea3..dd174db5b 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -78,9 +78,6 @@ root_mark (SCM root) scm_gc_mark (s->cur_inp); scm_gc_mark (s->cur_outp); scm_gc_mark (s->cur_errp); - scm_gc_mark (s->def_inp); - scm_gc_mark (s->def_outp); - scm_gc_mark (s->def_errp); /* No need to gc mark def_loadp */ scm_gc_mark (s->fluids); return SCM_ROOT_STATE (root) -> parent; @@ -125,9 +122,6 @@ scm_make_root (SCM parent) = root_state->cur_inp = root_state->cur_outp = root_state->cur_errp - = root_state->def_inp - = root_state->def_outp - = root_state->def_errp = root_state->cur_loadp = root_state->fluids = root_state->handle |