summaryrefslogtreecommitdiff
path: root/libguile/strorder.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/strorder.c')
-rw-r--r--libguile/strorder.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/strorder.c b/libguile/strorder.c
index 8f1ddee57..23c74c3ad 100644
--- a/libguile/strorder.c
+++ b/libguile/strorder.c
@@ -58,8 +58,8 @@ GUILE_PROC1 (scm_string_equal_p, "string=?", scm_tc7_rpsubr,
{
register scm_sizet i;
register unsigned char *c1, *c2;
- SCM_VALIDATE_ROSTRING(1,s1);
- SCM_VALIDATE_ROSTRING(2,s2);
+ SCM_VALIDATE_ROSTRING (1,s1);
+ SCM_VALIDATE_ROSTRING (2,s2);
i = SCM_ROLENGTH (s2);
if (SCM_ROLENGTH (s1) != i)
@@ -82,8 +82,8 @@ GUILE_PROC1 (scm_string_ci_equal_p, "string-ci=?", scm_tc7_rpsubr,
{
register scm_sizet i;
register unsigned char *c1, *c2;
- SCM_VALIDATE_ROSTRING(1,s1);
- SCM_VALIDATE_ROSTRING(2,s2);
+ SCM_VALIDATE_ROSTRING (1,s1);
+ SCM_VALIDATE_ROSTRING (2,s2);
i = SCM_ROLENGTH (s2);
if (SCM_ROLENGTH (s1) != i)
@@ -108,8 +108,8 @@ GUILE_PROC1 (scm_string_less_p, "string<?", scm_tc7_rpsubr,
register unsigned char *c1, *c2;
register int c;
- SCM_VALIDATE_ROSTRING(1,s1);
- SCM_VALIDATE_ROSTRING(2,s2);
+ SCM_VALIDATE_ROSTRING (1,s1);
+ SCM_VALIDATE_ROSTRING (2,s2);
len = SCM_ROLENGTH (s1);
s2len = SCM_ROLENGTH (s2);
if (len>s2len) len = s2len;
@@ -166,8 +166,8 @@ GUILE_PROC1 (scm_string_ci_less_p, "string-ci<?", scm_tc7_rpsubr,
register scm_sizet i, len, s2len;
register unsigned char *c1, *c2;
register int c;
- SCM_VALIDATE_ROSTRING(1,s1);
- SCM_VALIDATE_ROSTRING(2,s2);
+ SCM_VALIDATE_ROSTRING (1,s1);
+ SCM_VALIDATE_ROSTRING (2,s2);
len = SCM_ROLENGTH (s1);
s2len = SCM_ROLENGTH (s2);
if (len>s2len) len = s2len;