diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2005-03-02 20:56:34 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2005-03-02 20:56:34 +0000 |
| commit | 0ddf47fcaadf45cb3b8953f7d99af93e4e7b2181 (patch) | |
| tree | 30127dacfb3458a9f6fb81b78eee2536a077833f /guile-readline/readline.c | |
| parent | d8d925f310e19678d139202185079c13f1f0051a (diff) | |
| download | guile-0ddf47fcaadf45cb3b8953f7d99af93e4e7b2181.tar.gz | |
Use scm_current_input_port instead of scm_cur_inp. Use scm_std_select
instead of scm_internal_select.
Diffstat (limited to 'guile-readline/readline.c')
| -rw-r--r-- | guile-readline/readline.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guile-readline/readline.c b/guile-readline/readline.c index c0fe8ec6e..864d4fa41 100644 --- a/guile-readline/readline.c +++ b/guile-readline/readline.c @@ -172,7 +172,7 @@ SCM_DEFINE (scm_readline, "%readline", 0, 4, 0, } } - if (!((SCM_UNBNDP (inp) && SCM_OPINFPORTP (scm_cur_inp)) + if (!((SCM_UNBNDP (inp) && SCM_OPINFPORTP (scm_current_input_port ())) || SCM_OPINFPORTP (inp))) { --in_readline; @@ -181,7 +181,7 @@ SCM_DEFINE (scm_readline, "%readline", 0, 4, 0, SCM_EOL); } - if (!((SCM_UNBNDP (outp) && SCM_OPOUTFPORTP (scm_cur_outp)) + if (!((SCM_UNBNDP (outp) && SCM_OPOUTFPORTP (scm_current_output_port ())) || SCM_OPOUTFPORTP (outp))) { --in_readline; @@ -296,10 +296,10 @@ void scm_readline_init_ports (SCM inp, SCM outp) { if (SCM_UNBNDP (inp)) - inp = scm_cur_inp; + inp = scm_current_input_port (); if (SCM_UNBNDP (outp)) - outp = scm_cur_outp; + outp = scm_current_output_port (); if (!SCM_OPINFPORTP (inp)) { scm_misc_error (0, @@ -519,7 +519,7 @@ match_paren (int x, int k) { rl_redisplay (); #ifndef __MINGW32__ - scm_internal_select (fno + 1, &readset, NULL, NULL, &timeout); + scm_std_select (fno + 1, &readset, NULL, NULL, &timeout); #else WaitForSingleObject (GetStdHandle(STD_INPUT_HANDLE), SCM_READLINE_BOUNCE_PARENS); |