diff options
Diffstat (limited to 'libguile/ports.h')
-rw-r--r-- | libguile/ports.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/ports.h b/libguile/ports.h index 6ff259f5d..56cafdb35 100644 --- a/libguile/ports.h +++ b/libguile/ports.h @@ -344,7 +344,9 @@ SCM_INLINE void scm_putc_unlocked (char c, SCM port); SCM_API void scm_puts (const char *str_data, SCM port); SCM_INLINE void scm_puts_unlocked (const char *str_data, SCM port); SCM_API void scm_c_write (SCM port, const void *buffer, size_t size); +SCM_API void scm_c_write_unlocked (SCM port, const void *buffer, size_t size); SCM_API void scm_lfwrite (const char *ptr, size_t size, SCM port); +SCM_API void scm_lfwrite_unlocked (const char *ptr, size_t size, SCM port); SCM_INTERNAL void scm_lfwrite_substr (SCM str, size_t start, size_t end, SCM port); @@ -462,14 +464,14 @@ SCM_INLINE_IMPLEMENTATION void scm_putc_unlocked (char c, SCM port) { SCM_ASSERT_TYPE (SCM_OPOUTPORTP (port), port, 0, NULL, "output port"); - scm_lfwrite (&c, 1, port); + scm_lfwrite_unlocked (&c, 1, port); } SCM_INLINE_IMPLEMENTATION void scm_puts_unlocked (const char *s, SCM port) { SCM_ASSERT_TYPE (SCM_OPOUTPORTP (port), port, 0, NULL, "output port"); - scm_lfwrite (s, strlen (s), port); + scm_lfwrite_unlocked (s, strlen (s), port); } #endif /* SCM_CAN_INLINE || defined SCM_INLINE_C_IMPLEMENTING_INLINES */ |