311 |
buffered input on stdin can reset \ex{(current-input-port)} to |
buffered input on stdin can reset \ex{(current-input-port)} to |
312 |
block buffering for higher performance. */ |
block buffering for higher performance. */ |
313 |
|
|
314 |
scm_def_inp |
scm_cur_inp |
315 |
= scm_standard_stream_to_port (0, |
= scm_standard_stream_to_port (0, |
316 |
isatty (0) ? "r0" : "r", |
isatty (0) ? "r0" : "r", |
317 |
"standard input"); |
"standard input"); |
318 |
scm_def_outp = scm_standard_stream_to_port (1, |
scm_cur_outp = scm_standard_stream_to_port (1, |
319 |
isatty (1) ? "w0" : "w", |
isatty (1) ? "w0" : "w", |
320 |
"standard output"); |
"standard output"); |
321 |
scm_def_errp = scm_standard_stream_to_port (2, |
scm_cur_errp = scm_standard_stream_to_port (2, |
322 |
isatty (2) ? "w0" : "w", |
isatty (2) ? "w0" : "w", |
323 |
"standard error"); |
"standard error"); |
324 |
|
|
|
scm_cur_inp = scm_def_inp; |
|
|
scm_cur_outp = scm_def_outp; |
|
|
scm_cur_errp = scm_def_errp; |
|
325 |
scm_cur_loadp = SCM_BOOL_F; |
scm_cur_loadp = SCM_BOOL_F; |
326 |
} |
} |
327 |
|
|