diff options
author | Andy Wingo <wingo@pobox.com> | 2016-04-22 21:39:18 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-04-23 21:53:54 +0200 |
commit | 9632b24c4d6ee24a4672cdf0907364d26adb4bd9 (patch) | |
tree | 18fd7a4c8273823e9888603041b7cea38e9cc135 /libguile | |
parent | 99899b7c9c360cc382ba3fbb05bae5265313b9ac (diff) | |
download | guile-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.c | 18 |
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) |