diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-07 16:25:37 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-07 16:25:37 +0100 |
commit | 422866a7c6a16b123f43610d9499d602d6b4744f (patch) | |
tree | a3a1019157c6453396323147c2e5c69d9c424d5e | |
parent | 891702eaef9d2554fae44ab76bcfa1a9a4bb645e (diff) | |
download | guile-422866a7c6a16b123f43610d9499d602d6b4744f.tar.gz |
remove scm_markstream
* libguile/ports.h:
* libguile/ports.c (scm_markstream): Remove obsolete definition. Moved
around a couple of other declarations.
-rw-r--r-- | libguile/ports.c | 12 | ||||
-rw-r--r-- | libguile/ports.h | 7 |
2 files changed, 3 insertions, 16 deletions
diff --git a/libguile/ports.c b/libguile/ports.c index cffc8c8d9..87d0b7152 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -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 diff --git a/libguile/ports.h b/libguile/ports.h index 74f9f224a..fc050dd4b 100644 --- a/libguile/ports.h +++ b/libguile/ports.h @@ -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); |