diff options
author | Andy Wingo <wingo@pobox.com> | 2009-08-25 21:43:00 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-08-25 21:43:00 +0200 |
commit | c6a1380bde978194ee5c533246285f6af4bbb554 (patch) | |
tree | 81bb98421030e83688331b8a12b52bd93de7b403 /libguile/inline.h | |
parent | 108e18b18abc066b2709a09283751e9138ccc935 (diff) | |
parent | 889975e51accb80491af76fc5db980aeb3edd342 (diff) | |
download | guile-c6a1380bde978194ee5c533246285f6af4bbb554.tar.gz |
Merge commit 'origin/master'
Conflicts:
libguile/unif.c
Diffstat (limited to 'libguile/inline.h')
-rw-r--r-- | libguile/inline.h | 25 |
1 files changed, 2 insertions, 23 deletions
diff --git a/libguile/inline.h b/libguile/inline.h index f7a216d7d..574bbfcd3 100644 --- a/libguile/inline.h +++ b/libguile/inline.h @@ -87,7 +87,7 @@ SCM_API void scm_array_handle_set (scm_t_array_handle *h, ssize_t pos, SCM val); SCM_API int scm_is_pair (SCM x); -SCM_API int scm_getc (SCM port); +SCM_API int scm_get_byte_or_eof (SCM port); SCM_API void scm_putc (char c, SCM port); SCM_API void scm_puts (const char *str_data, SCM port); @@ -299,7 +299,7 @@ scm_is_pair (SCM x) SCM_C_EXTERN_INLINE #endif int -scm_getc (SCM port) +scm_get_byte_or_eof (SCM port) { int c; scm_t_port *pt = SCM_PTAB_ENTRY (port); @@ -319,27 +319,6 @@ scm_getc (SCM port) c = *(pt->read_pos++); - switch (c) - { - case '\a': - break; - case '\b': - SCM_DECCOL (port); - break; - case '\n': - SCM_INCLINE (port); - break; - case '\r': - SCM_ZEROCOL (port); - break; - case '\t': - SCM_TABCOL (port); - break; - default: - SCM_INCCOL (port); - break; - } - return c; } |