This is the mail archive of the
guile@cygnus.com
mailing list for the Guile project.
Patch to make guile-readline-0.0 work with Gary's ports
- To: mvo@zagadka.ping.de
- Subject: Patch to make guile-readline-0.0 work with Gary's ports
- From: Mikael Djurfeldt <mdj@mdj-pc.nada.kth.se>
- Date: Wed, 23 Jun 1999 22:11:02 +0200
- Cc: guile@cygnus.com, orre@nada.kth.se, aho@sics.se
- Reply-to: Mikael Djurfeldt <djurfeldt@nada.kth.se>
I don't know if this is the right thing to do, but it works.
*** readline.c~ Sun May 16 22:13:25 1999
--- readline.c Wed Jun 23 22:06:47 1999
***************
*** 264,271 ****
}
input_port = inp;
! rl_instream = (FILE *) SCM_STREAM (inp);
! rl_outstream = (FILE *) SCM_STREAM (outp);
ans = scm_internal_catch (SCM_BOOL_T,
(scm_catch_body_t) internal_readline,
--- 264,271 ----
}
input_port = inp;
! rl_instream = fdopen (((struct scm_fport *) SCM_STREAM (inp))->fdes, "r");
! rl_outstream = fdopen (((struct scm_fport *) SCM_STREAM (outp))->fdes, "w");
ans = scm_internal_catch (SCM_BOOL_T,
(scm_catch_body_t) internal_readline,