diff options
author | Gary Houston <ghouston@arglist.com> | 1997-02-06 07:05:08 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1997-02-06 07:05:08 +0000 |
commit | c101e39e41e855301645dcd0f361c53babce21a3 (patch) | |
tree | 435fceb747c20afa92059bfd2640b84d043b0295 /libguile/unif.c | |
parent | 5862b540cdec063690767e5e095ba20d093f87d1 (diff) | |
download | guile-c101e39e41e855301645dcd0f361c53babce21a3.tar.gz |
* strop.c (scm_string_upcase_x, scm_string_downcase_x): moved from
unif.c.
strop.h: move prototypes too.
* posix.c (scm_init_posix): don't intern EINTR since it's now done
elsewhere.
* ioext.c (scm_init_ioext): don't intern stat macros, S_IRUSR
etc. I deleted them from filesys.c long ago, but didn't
notice they were here too (although ineffective since
sys/stat.h wasn't included).
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index c35230d47..a44e2c0f8 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -1925,56 +1925,6 @@ scm_bit_invert_x (v) } -SCM_PROC(s_string_upcase_x, "string-upcase!", 1, 0, 0, scm_string_upcase_x); - -SCM -scm_string_upcase_x (v) - SCM v; -{ - register long k; - register unsigned char *cs; - SCM_ASRTGO (SCM_NIMP (v), badarg1); - k = SCM_LENGTH (v); - switch SCM_TYP7 - (v) - { - case scm_tc7_string: - cs = SCM_UCHARS (v); - while (k--) - cs[k] = scm_upcase(cs[k]); - break; - default: - badarg1:scm_wta (v, (char *) SCM_ARG1, s_string_upcase_x); - } - return v; -} - -SCM_PROC(s_string_downcase_x, "string-downcase!", 1, 0, 0, scm_string_downcase_x); - -SCM -scm_string_downcase_x (v) - SCM v; -{ - register long k; - register unsigned char *cs; - SCM_ASRTGO (SCM_NIMP (v), badarg1); - k = SCM_LENGTH (v); - switch SCM_TYP7 - (v) - { - case scm_tc7_string: - cs = SCM_UCHARS (v); - while (k--) - cs[k] = scm_downcase(cs[k]); - break; - default: - badarg1:scm_wta (v, (char *) SCM_ARG1, s_string_downcase_x); - } - return v; -} - - - SCM scm_istr2bve (str, len) char *str; |