mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

Make it compile with --disable-deprecated.

Browse source 
* readline.h: scm_option->scm_option_t.

	* readline.c (stream_from_fport): scm_fport->scm_fport_t;
	scm_option->scm_option_t.
This commit is contained in:
Martin Grabmüller 2001-05-24 06:51:42 +00:00
parent 1be6b49ccb
commit 90d892e32e
3 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guile-readline/ChangeLog
View file

@ -1,3 +1,12 @@
2001-05-24 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
Make it compile with --disable-deprecated.
* readline.h: scm_option->scm_option_t.
* readline.c (stream_from_fport): scm_fport->scm_fport_t;
scm_option->scm_option_t.
2001-05-23 Michael Livshin <mlivshin@bigfoot.com>
* readline.c (strdup): make `len' a size_t.

4
guile-readline/readline.c
View file

@ -42,7 +42,7 @@
#include "libguile/validate.h"
#include "guile-readline/readline.h"
scm_option scm_readline_opts[] = {
scm_option_t scm_readline_opts[] = {
{ SCM_OPTION_BOOLEAN, "history-file", 1,
"Use history file." },
{ SCM_OPTION_INTEGER, "history-length", 200,
@ -277,7 +277,7 @@ stream_from_fport (SCM port, char *mode, const char *subr)
int fd;
FILE *f;
fd = dup (((struct scm_fport *) SCM_STREAM (port))->fdes);
fd = dup (((struct scm_fport_t *) SCM_STREAM (port))->fdes);
if (fd == -1)
{
--in_readline;

2
guile-readline/readline.h
View file

@ -22,7 +22,7 @@
#include "libguile/__scm.h"
extern scm_option scm_readline_opts[];
extern scm_option_t scm_readline_opts[];
#define SCM_HISTORY_FILE_P scm_readline_opts[0].val
#define SCM_HISTORY_LENGTH scm_readline_opts[1].val