mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* removal of unused fields in root state (thanks to Christopher

Browse source 
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.
This commit is contained in:
Gary Houston 2002-04-20 20:57:09 +00:00
parent ce9d056227
commit 5e423a39ab
4 changed files with 13 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/ChangeLog
View file

@ -1,3 +1,13 @@
2002-04-20 Gary Houston <ghouston@arglist.com>
* 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.
2002-04-17 Marius Vollmer <mvo@zagadka.ping.de> 2002-04-17 Marius Vollmer <mvo@zagadka.ping.de>
* Makefile.am (EXTRA_DIST): Added cpp_err_symbols.c and * Makefile.am (EXTRA_DIST): Added cpp_err_symbols.c and

9
libguile/init.c
View file

@ -311,20 +311,17 @@ scm_init_standard_ports ()
buffered input on stdin can reset \ex{(current-input-port)} to buffered input on stdin can reset \ex{(current-input-port)} to
block buffering for higher performance. */ block buffering for higher performance. */
scm_def_inp scm_cur_inp
= scm_standard_stream_to_port (0, = scm_standard_stream_to_port (0,
isatty (0) ? "r0" : "r", isatty (0) ? "r0" : "r",
"standard input"); "standard input");
scm_def_outp = scm_standard_stream_to_port (1, scm_cur_outp = scm_standard_stream_to_port (1,
isatty (1) ? "w0" : "w", isatty (1) ? "w0" : "w",
"standard output"); "standard output");
scm_def_errp = scm_standard_stream_to_port (2, scm_cur_errp = scm_standard_stream_to_port (2,
isatty (2) ? "w0" : "w", isatty (2) ? "w0" : "w",
"standard error"); "standard error");
scm_cur_inp = scm_def_inp;
scm_cur_outp = scm_def_outp;
scm_cur_errp = scm_def_errp;
scm_cur_loadp = SCM_BOOL_F; scm_cur_loadp = SCM_BOOL_F;
} }

6
libguile/root.c
View file

@ -78,9 +78,6 @@ root_mark (SCM root)
scm_gc_mark (s->cur_inp); scm_gc_mark (s->cur_inp);
scm_gc_mark (s->cur_outp); scm_gc_mark (s->cur_outp);
scm_gc_mark (s->cur_errp); 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 */ /* No need to gc mark def_loadp */
scm_gc_mark (s->fluids); scm_gc_mark (s->fluids);
return SCM_ROOT_STATE (root) -> parent; return SCM_ROOT_STATE (root) -> parent;
@ -125,9 +122,6 @@ scm_make_root (SCM parent)
= root_state->cur_inp = root_state->cur_inp
= root_state->cur_outp = root_state->cur_outp
= root_state->cur_errp = root_state->cur_errp
= root_state->def_inp
= root_state->def_outp
= root_state->def_errp
= root_state->cur_loadp = root_state->cur_loadp
= root_state->fluids = root_state->fluids
= root_state->handle = root_state->handle

3
libguile/root.h
View file

@ -100,9 +100,6 @@ typedef struct scm_root_state
SCM cur_inp; SCM cur_inp;
SCM cur_outp; SCM cur_outp;
SCM cur_errp; SCM cur_errp;
SCM def_inp;
SCM def_outp;
SCM def_errp;
SCM cur_loadp; SCM cur_loadp;
SCM fluids; SCM fluids;