summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1997-02-06 07:05:08 +0000
committerGary Houston <ghouston@arglist.com>1997-02-06 07:05:08 +0000
commitc101e39e41e855301645dcd0f361c53babce21a3 (patch)
tree435fceb747c20afa92059bfd2640b84d043b0295 /libguile/unif.c
parent5862b540cdec063690767e5e095ba20d093f87d1 (diff)
downloadguile-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.c50
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;