mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Remove port equal functions

Browse source 
* doc/ref/api-io.texi (Port Implementation): Remove mention of port
  equal functions.
* NEWS: Update.
* libguile/ports.c (scm_set_port_equalp): Remove.
* libguile/ports.h (scm_t_ptob_descriptor): Remove equalp function.
This commit is contained in:
Andy Wingo 2016-04-03 12:08:07 +02:00
parent 67b147fb7a
commit e98f64009d
4 changed files with 6 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

6
NEWS
View file

@ -24,6 +24,12 @@ as arguments to the `setvbuf' function.
Port mark functions have not been called since the switch to the BDW
garbage collector.
** Remove `scm_set_port_equalp'
Likewise port equal functions weren't being called. Given that ports
have their own internal buffers, it doesn't make sense to hook them into
equal? anyway.
** Remove `scm_set_port_free'
It used to be that if an open port became unreachable, a special "free"

6
doc/ref/api-io.texi
View file

@ -2313,12 +2313,6 @@ The first argument @var{port} is the object being printed, the second
argument @var{dest_port} is where its description should go.
@end deftypefun
@item equalp
Not used at present. Set using
@deftypefun void scm_set_port_equalp (scm_t_bits tc, SCM (*equalp) (SCM, SCM))
@end deftypefun
@item close
Called when the port is closed. It should free any resources used by
the port. Set using

6
libguile/ports.c
View file

@ -274,12 +274,6 @@ scm_set_port_print (scm_t_bits tc, int (*print) (SCM exp, SCM port,
scm_c_port_type_ref (SCM_TC2PTOBNUM (tc))->print = print;
}
void
scm_set_port_equalp (scm_t_bits tc, SCM (*equalp) (SCM, SCM))
{
scm_c_port_type_ref (SCM_TC2PTOBNUM (tc))->equalp = equalp;
}
void
scm_set_port_close (scm_t_bits tc, int (*close) (SCM))
{

2
libguile/ports.h
View file

@ -187,7 +187,6 @@ typedef struct scm_t_ptob_descriptor
{
char *name;
int (*print) (SCM exp, SCM port, scm_print_state *pstate);
SCM (*equalp) (SCM, SCM);
int (*close) (SCM port);
void (*write) (SCM port, const void *data, size_t size);
@ -228,7 +227,6 @@ SCM_API void scm_set_port_print (scm_t_bits tc,
int (*print) (SCM exp,
SCM port,
scm_print_state *pstate));
SCM_API void scm_set_port_equalp (scm_t_bits tc, SCM (*equalp) (SCM, SCM));
SCM_API void scm_set_port_close (scm_t_bits tc, int (*close) (SCM));
SCM_API void scm_set_port_needs_close_on_gc (scm_t_bits tc, int needs_close_p);