summaryrefslogtreecommitdiff
path: root/srfi
diff options
context:
space:
mode:
Diffstat (limited to 'srfi')
-rw-r--r--srfi/srfi-1.c10
-rw-r--r--srfi/srfi-13.c8
2 files changed, 9 insertions, 9 deletions
diff --git a/srfi/srfi-1.c b/srfi/srfi-1.c
index eef97d7ef..c194f66b5 100644
--- a/srfi/srfi-1.c
+++ b/srfi/srfi-1.c
@@ -49,7 +49,7 @@ srfi1_ilength (SCM sx)
/* For every two steps the hare takes, the tortoise takes one. */
tortoise = SCM_CDR(tortoise);
}
- while (! SCM_EQ_P (hare, tortoise));
+ while (! scm_is_eq (hare, tortoise));
/* If the tortoise ever catches the hare, then the list must contain
a cycle. */
@@ -222,7 +222,7 @@ SCM_DEFINE (scm_srfi1_delete, "delete", 2, 1, 0,
{
/* delete this element, so copy from keeplst (inclusive) to lst
(exclusive) onto ret */
- while (! SCM_EQ_P (keeplst, lst))
+ while (! scm_is_eq (keeplst, lst))
{
SCM c = scm_cons (SCM_CAR (keeplst), SCM_EOL);
*p = c;
@@ -360,13 +360,13 @@ SCM_DEFINE (scm_srfi1_delete_duplicates, "delete-duplicates", 1, 1, 0,
item = SCM_CAR (lst);
/* loop searching ret upto lst */
- for (l = ret; ! SCM_EQ_P (l, lst); l = SCM_CDR (l))
+ for (l = ret; ! scm_is_eq (l, lst); l = SCM_CDR (l))
{
if (scm_is_true (equal_p (pred, SCM_CAR (l), item)))
{
/* duplicate, don't want this element, so copy keeplst
(inclusive) to lst (exclusive) onto ret */
- while (! SCM_EQ_P (keeplst, lst))
+ while (! scm_is_eq (keeplst, lst))
{
SCM c = scm_cons (SCM_CAR (keeplst), SCM_EOL);
*p = c;
@@ -450,7 +450,7 @@ SCM_DEFINE (scm_srfi1_delete_duplicates_x, "delete-duplicates!", 1, 1, 0,
if (scm_is_true (equal_p (pred, SCM_CAR (l), item)))
break; /* equal, forget this element */
- if (SCM_EQ_P (l, endret))
+ if (scm_is_eq (l, endret))
{
/* not equal to any, so append this pair */
SCM_SETCDR (endret, lst);
diff --git a/srfi/srfi-13.c b/srfi/srfi-13.c
index 0efd24abb..bbb20faab 100644
--- a/srfi/srfi-13.c
+++ b/srfi/srfi-13.c
@@ -236,13 +236,13 @@ SCM_DEFINE (scm_string_join, "string-join", 1, 2, 0,
/* Validate the grammar symbol and remember the grammar. */
if (SCM_UNBNDP (grammar))
gram = GRAM_INFIX;
- else if (SCM_EQ_P (grammar, scm_sym_infix))
+ else if (scm_is_eq (grammar, scm_sym_infix))
gram = GRAM_INFIX;
- else if (SCM_EQ_P (grammar, scm_sym_strict_infix))
+ else if (scm_is_eq (grammar, scm_sym_strict_infix))
gram = GRAM_STRICT_INFIX;
- else if (SCM_EQ_P (grammar, scm_sym_suffix))
+ else if (scm_is_eq (grammar, scm_sym_suffix))
gram = GRAM_SUFFIX;
- else if (SCM_EQ_P (grammar, scm_sym_prefix))
+ else if (scm_is_eq (grammar, scm_sym_prefix))
gram = GRAM_PREFIX;
else
SCM_WRONG_TYPE_ARG (3, grammar);