summaryrefslogtreecommitdiff
path: root/libguile/init.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/init.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/init.c')
-rw-r--r--libguile/init.c9
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;
}