summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-04-03 11:13:13 +0200
committerAndy Wingo <wingo@pobox.com>2016-04-04 16:30:56 +0200
commit4460f1f15280e3378633115fe9035448a68c636b (patch)
tree9bc3b16ee9eba1d92e10b0f233f4822eaabe917f /libguile
parent4eb9fd47c47fcd3d9da8aaced8b729a9cd303ab4 (diff)
downloadguile-4460f1f15280e3378633115fe9035448a68c636b.tar.gz
Remove port mark functions
* doc/ref/api-io.texi (Port Implementation): Remove documentation. * libguile/ports.c (scm_set_port_mark): Remove function. * libguile/ports.h (scm_t_ptob_descriptor): Remove mark function. * NEWS: Add entry.
Diffstat (limited to 'libguile')
-rw-r--r--libguile/ports.c6
-rw-r--r--libguile/ports.h2
2 files changed, 0 insertions, 8 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index da8b4d22c..3f1b5b1c5 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -268,12 +268,6 @@ scm_make_port_type (char *name,
}
void
-scm_set_port_mark (scm_t_bits tc, SCM (*mark) (SCM))
-{
- scm_c_port_type_ref (SCM_TC2PTOBNUM (tc))->mark = mark;
-}
-
-void
scm_set_port_free (scm_t_bits tc, size_t (*free) (SCM))
{
scm_c_port_type_ref (SCM_TC2PTOBNUM (tc))->free = free;
diff --git a/libguile/ports.h b/libguile/ports.h
index d8527be5f..f6c217fe3 100644
--- a/libguile/ports.h
+++ b/libguile/ports.h
@@ -184,7 +184,6 @@ typedef enum scm_t_port_type_flags {
typedef struct scm_t_ptob_descriptor
{
char *name;
- SCM (*mark) (SCM);
size_t (*free) (SCM);
int (*print) (SCM exp, SCM port, scm_print_state *pstate);
SCM (*equalp) (SCM, SCM);
@@ -224,7 +223,6 @@ SCM_API scm_t_bits scm_make_port_type (char *name,
void (*write) (SCM port,
const void *data,
size_t size));
-SCM_API void scm_set_port_mark (scm_t_bits tc, SCM (*mark) (SCM));
SCM_API void scm_set_port_free (scm_t_bits tc, size_t (*free) (SCM));
SCM_API void scm_set_port_print (scm_t_bits tc,
int (*print) (SCM exp,