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

remove scm_markstream

Browse source 
* libguile/ports.h:
* libguile/ports.c (scm_markstream): Remove obsolete definition.  Moved
  around a couple of other declarations.
This commit is contained in:
Andy Wingo 2011-11-07 16:25:37 +01:00
parent 891702eaef
commit 422866a7c6
2 changed files with 3 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/ports.c
View file

@ -101,18 +101,6 @@
scm_t_ptob_descriptor *scm_ptobs = NULL;
long scm_numptob = 0;
/* GC marker for a port with stream of SCM type. */
SCM
scm_markstream (SCM ptr)
{
int openp;
openp = SCM_CELL_WORD_0 (ptr) & SCM_OPN;
if (openp)
return SCM_PACK (SCM_STREAM (ptr));
else
return SCM_BOOL_F;
}
/*
* We choose to use an interface similar to the smob interface with
* fill_input and write as standard fields, passed to the port

7
libguile/ports.h
View file

@ -217,7 +217,6 @@ SCM_API long scm_numptob;
SCM_API SCM scm_markstream (SCM ptr);
SCM_API scm_t_bits scm_make_port_type (char *name,
int (*fill_input) (SCM port),
void (*write) (SCM port,
@ -245,9 +244,6 @@ SCM_API void scm_set_port_truncate (scm_t_bits tc,
void (*truncate) (SCM port,
scm_t_off length));
SCM_API void scm_set_port_input_waiting (scm_t_bits tc, int (*input_waiting) (SCM));
SCM_API SCM scm_char_ready_p (SCM port);
size_t scm_take_from_input_buffers (SCM port, char *dest, size_t read_len);
SCM_API SCM scm_drain_input (SCM port);
SCM_API SCM scm_current_input_port (void);
SCM_API SCM scm_current_output_port (void);
SCM_API SCM scm_current_error_port (void);
@ -273,6 +269,9 @@ SCM_INLINE int scm_c_lock_port (scm_t_port *entry);
SCM_INLINE int scm_c_try_lock_port (scm_t_port *entry);
SCM_INLINE int scm_c_unlock_port (scm_t_port *entry);
SCM_API SCM scm_char_ready_p (SCM port);
size_t scm_take_from_input_buffers (SCM port, char *dest, size_t read_len);
SCM_API SCM scm_drain_input (SCM port);
SCM_API void scm_port_non_buffer (scm_t_port *pt);
SCM_API int scm_revealed_count (SCM port);
SCM_API SCM scm_port_revealed (SCM port);