diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
| commit | d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b (patch) | |
| tree | df14a633c6d8ac08ba098651a9164a0c991d8288 /libguile/sort.c | |
| parent | a61f4e0c61695e17984b25b16fbf720b851b739c (diff) | |
| download | guile-d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b.tar.gz | |
*** empty log message ***
Diffstat (limited to 'libguile/sort.c')
| -rw-r--r-- | libguile/sort.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/sort.c b/libguile/sort.c index 35aea629f..d5adb9525 100644 --- a/libguile/sort.c +++ b/libguile/sort.c @@ -329,7 +329,7 @@ SCM_DEFINE (scm_sorted_p, "sorted?", 2, 0, 0, if (SCM_NULL_OR_NIL_P (items)) return SCM_BOOL_T; - if (SCM_CONSP (items)) + if (scm_is_pair (items)) { len = scm_ilength (items); /* also checks that it's a pure list */ SCM_ASSERT_RANGE (1, items, len >= 0); @@ -581,7 +581,7 @@ SCM_DEFINE (scm_sort_x, "sort!", 2, 0, 0, if (SCM_NULL_OR_NIL_P (items)) return items; - if (SCM_CONSP (items)) + if (scm_is_pair (items)) { const scm_t_trampoline_2 cmp = compare_function (less, 2, FUNC_NAME); SCM_VALIDATE_LIST_COPYLEN (1, items, len); @@ -612,7 +612,7 @@ SCM_DEFINE (scm_sort, "sort", 2, 0, 0, if (SCM_NULL_OR_NIL_P (items)) return items; - if (SCM_CONSP (items)) + if (scm_is_pair (items)) { const scm_t_trampoline_2 cmp = compare_function (less, 2, FUNC_NAME); long len; @@ -723,7 +723,7 @@ SCM_DEFINE (scm_stable_sort_x, "stable-sort!", 2, 0, 0, if (SCM_NULL_OR_NIL_P (items)) return items; - if (SCM_CONSP (items)) + if (scm_is_pair (items)) { SCM_VALIDATE_LIST_COPYLEN (1, items, len); return scm_merge_list_step (&items, cmp, less, len); @@ -761,7 +761,7 @@ SCM_DEFINE (scm_stable_sort, "stable-sort", 2, 0, 0, if (SCM_NULL_OR_NIL_P (items)) return items; - if (SCM_CONSP (items)) + if (scm_is_pair (items)) { long len; /* list/vector length */ |