summaryrefslogtreecommitdiff
path: root/srfi/srfi-14.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-07-06 11:02:47 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-07-06 11:02:47 +0000
commit00874d5fb023fd68c03f0df33eccb6554da32ea2 (patch)
tree5e1a1f4c76be830c85dece096518ded28bd86ee4 /srfi/srfi-14.c
parent054ebf6ca539dee2bfc9965781313c0d32faa51f (diff)
downloadguile-00874d5fb023fd68c03f0df33eccb6554da32ea2.tar.gz
Replaced all uses of deprecated SCM_FALSEP, SCM_NFALSEP, SCM_BOOL,
SCM_NEGATE_BOOL, and SCM_BOOLP with scm_is_false, scm_is_true, scm_from_bool, and scm_is_bool, respectively.
Diffstat (limited to 'srfi/srfi-14.c')
-rw-r--r--srfi/srfi-14.c24
1 files changed, 12 insertions, 12 deletions
diff --git a/srfi/srfi-14.c b/srfi/srfi-14.c
index aeae52aa2..0ab29672a 100644
--- a/srfi/srfi-14.c
+++ b/srfi/srfi-14.c
@@ -85,7 +85,7 @@ SCM_DEFINE (scm_char_set_p, "char-set?", 1, 0, 0,
"otherwise.")
#define FUNC_NAME s_scm_char_set_p
{
- return SCM_BOOL (SCM_SMOB_PREDICATE (scm_tc16_charset, obj));
+ return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_charset, obj));
}
#undef FUNC_NAME
@@ -261,7 +261,7 @@ SCM_DEFINE (scm_end_of_char_set_p, "end-of-char-set?", 1, 0, 0,
int ccursor;
SCM_VALIDATE_INUM_MIN_COPY (1, cursor, 0, ccursor);
- return SCM_BOOL (ccursor >= SCM_CHARSET_SIZE);
+ return scm_from_bool (ccursor >= SCM_CHARSET_SIZE);
}
#undef FUNC_NAME
@@ -316,7 +316,7 @@ SCM_DEFINE (scm_char_set_unfold, "char-set-unfold", 4, 1, 0,
result = make_char_set (FUNC_NAME);
tmp = scm_call_1 (p, seed);
- while (SCM_FALSEP (tmp))
+ while (scm_is_false (tmp))
{
SCM ch = scm_call_1 (f, seed);
if (!SCM_CHARP (ch))
@@ -354,7 +354,7 @@ SCM_DEFINE (scm_char_set_unfold_x, "char-set-unfold!", 5, 0, 0,
SCM_VALIDATE_SMOB (5, base_cs, charset);
tmp = scm_call_1 (p, seed);
- while (SCM_FALSEP (tmp))
+ while (scm_is_false (tmp))
{
SCM ch = scm_call_1 (f, seed);
if (!SCM_CHARP (ch))
@@ -606,7 +606,7 @@ SCM_DEFINE (scm_char_set_filter, "char-set-filter", 2, 1, 0,
{
SCM res = scm_call_1 (pred, SCM_MAKE_CHAR (k));
- if (!SCM_FALSEP (res))
+ if (scm_is_true (res))
p[k / SCM_BITS_PER_LONG] |= 1L << (k % SCM_BITS_PER_LONG);
}
}
@@ -635,7 +635,7 @@ SCM_DEFINE (scm_char_set_filter_x, "char-set-filter!", 3, 0, 0,
{
SCM res = scm_call_1 (pred, SCM_MAKE_CHAR (k));
- if (!SCM_FALSEP (res))
+ if (scm_is_true (res))
p[k / SCM_BITS_PER_LONG] |= 1L << (k % SCM_BITS_PER_LONG);
}
}
@@ -670,7 +670,7 @@ SCM_DEFINE (scm_ucs_range_to_char_set, "ucs-range->char-set", 2, 2, 0,
SCM_ASSERT_RANGE (2, upper, cupper >= 0 && cupper >= clower);
if (!SCM_UNBNDP (error))
{
- if (!SCM_FALSEP (error))
+ if (scm_is_true (error))
{
SCM_ASSERT_RANGE (1, lower, clower <= SCM_CHARSET_SIZE);
SCM_ASSERT_RANGE (2, upper, cupper <= SCM_CHARSET_SIZE);
@@ -721,7 +721,7 @@ SCM_DEFINE (scm_ucs_range_to_char_set_x, "ucs-range->char-set!", 4, 0, 0,
SCM_VALIDATE_INUM_COPY (2, upper, cupper);
SCM_ASSERT_RANGE (1, lower, clower >= 0);
SCM_ASSERT_RANGE (2, upper, cupper >= 0 && cupper >= clower);
- if (!SCM_FALSEP (error))
+ if (scm_is_true (error))
{
SCM_ASSERT_RANGE (1, lower, clower <= SCM_CHARSET_SIZE);
SCM_ASSERT_RANGE (2, upper, cupper <= SCM_CHARSET_SIZE);
@@ -772,7 +772,7 @@ SCM_DEFINE (scm_char_set_count, "char-set-count", 2, 0, 0,
if (SCM_CHARSET_GET (cs, k))
{
SCM res = scm_call_1 (pred, SCM_MAKE_CHAR (k));
- if (!SCM_FALSEP (res))
+ if (scm_is_true (res))
count++;
}
return SCM_MAKINUM (count);
@@ -833,7 +833,7 @@ SCM_DEFINE (scm_char_set_contains_p, "char-set-contains?", 2, 0, 0,
{
SCM_VALIDATE_SMOB (1, cs, charset);
SCM_VALIDATE_CHAR (2, ch);
- return SCM_BOOL (SCM_CHARSET_GET (cs, SCM_CHAR (ch)));
+ return scm_from_bool (SCM_CHARSET_GET (cs, SCM_CHAR (ch)));
}
#undef FUNC_NAME
@@ -854,7 +854,7 @@ SCM_DEFINE (scm_char_set_every, "char-set-every", 2, 0, 0,
if (SCM_CHARSET_GET (cs, k))
{
res = scm_call_1 (pred, SCM_MAKE_CHAR (k));
- if (SCM_FALSEP (res))
+ if (scm_is_false (res))
return res;
}
return res;
@@ -877,7 +877,7 @@ SCM_DEFINE (scm_char_set_any, "char-set-any", 2, 0, 0,
if (SCM_CHARSET_GET (cs, k))
{
SCM res = scm_call_1 (pred, SCM_MAKE_CHAR (k));
- if (!SCM_FALSEP (res))
+ if (scm_is_true (res))
return res;
}
return SCM_BOOL_F;