summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-04-22 21:39:18 +0200
committerAndy Wingo <wingo@pobox.com>2016-04-23 21:53:54 +0200
commit9632b24c4d6ee24a4672cdf0907364d26adb4bd9 (patch)
tree18fd7a4c8273823e9888603041b7cea38e9cc135 /libguile
parent99899b7c9c360cc382ba3fbb05bae5265313b9ac (diff)
downloadguile-9632b24c4d6ee24a4672cdf0907364d26adb4bd9.tar.gz
Remove scm_c_read_bytes_unlocked
* libguile/ports.c (scm_c_read_bytes_unlocked): Remove internal function.
Diffstat (limited to 'libguile')
-rw-r--r--libguile/ports.c18
1 files changed, 2 insertions, 16 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index b466ed808..61f00ef7f 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -1486,8 +1486,8 @@ scm_i_read_unlocked (SCM port, SCM buf)
returns less than SIZE bytes if at end-of-file.
Warning: Doesn't update port line and column counts! */
-static size_t
-scm_c_read_bytes_unlocked (SCM port, SCM dst, size_t start, size_t count)
+size_t
+scm_c_read_bytes (SCM port, SCM dst, size_t start, size_t count)
#define FUNC_NAME "scm_c_read_bytes"
{
size_t to_read = count;
@@ -1584,20 +1584,6 @@ scm_c_read (SCM port, void *buffer, size_t size)
}
#undef FUNC_NAME
-size_t
-scm_c_read_bytes (SCM port, SCM dst, size_t start, size_t count)
-{
- scm_i_pthread_mutex_t *lock;
- size_t ret;
-
- scm_c_lock_port (port, &lock);
- ret = scm_c_read_bytes_unlocked (port, dst, start, count);
- if (lock)
- scm_i_pthread_mutex_unlock (lock);
-
- return ret;
-}
-
/* Update the line and column number of PORT after consumption of C. */
static inline void
update_port_lf (scm_t_wchar c, SCM port)