mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +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

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
block buffering for higher performance. */
scm_def_inp
scm_cur_inp
= scm_standard_stream_to_port (0,
isatty (0) ? "r0" : "r",
"standard input");
scm_def_outp = scm_standard_stream_to_port (1,
scm_cur_outp = scm_standard_stream_to_port (1,
isatty (1) ? "w0" : "w",
"standard output");
scm_def_errp = scm_standard_stream_to_port (2,
scm_cur_errp = scm_standard_stream_to_port (2,
isatty (2) ? "w0" : "w",
"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;
}