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/init.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/init.c')
-rw-r--r-- | libguile/init.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/libguile/init.c b/libguile/init.c index 71d737e45..e4567600c 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -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; } |