diff options
Diffstat (limited to 'libguile/ports.h')
| -rw-r--r-- | libguile/ports.h | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/libguile/ports.h b/libguile/ports.h index 2877ef60f..6ff259f5d 100644 --- a/libguile/ports.h +++ b/libguile/ports.h @@ -339,8 +339,10 @@ SCM_API void scm_flush (SCM port); SCM_API void scm_flush_unlocked (SCM port); /* Output. */ -SCM_INLINE void scm_putc (char c, SCM port); -SCM_INLINE void scm_puts (const char *str_data, SCM port); +SCM_API void scm_putc (char c, SCM port); +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_lfwrite (const char *ptr, size_t size, SCM port); SCM_INTERNAL void scm_lfwrite_substr (SCM str, size_t start, size_t end, @@ -457,14 +459,14 @@ scm_peek_byte_or_eof_unlocked (SCM port) } SCM_INLINE_IMPLEMENTATION void -scm_putc (char c, SCM port) +scm_putc_unlocked (char c, SCM port) { SCM_ASSERT_TYPE (SCM_OPOUTPORTP (port), port, 0, NULL, "output port"); scm_lfwrite (&c, 1, port); } SCM_INLINE_IMPLEMENTATION void -scm_puts (const char *s, SCM port) +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); |