summaryrefslogtreecommitdiff
path: root/libguile/root.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>2002-04-20 20:57:09 +0000
committerGary Houston <ghouston@arglist.com>2002-04-20 20:57:09 +0000
commit5e423a39aba9c1a7a1e47ef6016c6ed19abf8ed4 (patch)
tree30960f6cc5a69e39c4f7a89afe6ec44d28709482 /libguile/root.c
parentce9d056227b0548cf5c1ca11dab10dfe0b8e491c (diff)
downloadguile-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.c6
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