mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +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 Port mark functions have not been called since the switch to the BDW
garbage collector. 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' ** Remove `scm_set_port_free'
It used to be that if an open port became unreachable, a special "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. argument @var{dest_port} is where its description should go.
@end deftypefun @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 @item close
Called when the port is closed. It should free any resources used by Called when the port is closed. It should free any resources used by
the port. Set using 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; 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 void
scm_set_port_close (scm_t_bits tc, int (*close) (SCM)) 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; char *name;
int (*print) (SCM exp, SCM port, scm_print_state *pstate); int (*print) (SCM exp, SCM port, scm_print_state *pstate);
SCM (*equalp) (SCM, SCM);
int (*close) (SCM port); int (*close) (SCM port);
void (*write) (SCM port, const void *data, size_t size); 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, int (*print) (SCM exp,
SCM port, SCM port,
scm_print_state *pstate)); 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_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); SCM_API void scm_set_port_needs_close_on_gc (scm_t_bits tc, int needs_close_p);