diff options
| -rw-r--r-- | lib.c | 11 | ||||
| -rw-r--r-- | txr.1 | 6 |
2 files changed, 8 insertions, 9 deletions
@@ -1298,17 +1298,16 @@ val ldiff(val list1, val list2) list2 = nullify(list2); switch (type(list2)) { - case STR: - case LIT: - case LSTR: - case VEC: - while (list1 && !equal(list1, list2)) { + case NIL: + case CONS: + case LCONS: + while (list1 && list1 != list2) { ptail = list_collect(ptail, car(list1)); list1 = cdr(list1); } break; default: - while (list1 && list1 != list2) { + while (list1 && !equal(list1, list2)) { ptail = list_collect(ptail, car(list1)); list1 = cdr(list1); } @@ -10310,8 +10310,8 @@ can also be treated in the same way. The .code ldiff function is also extended in a special way. When the right parameter -is a string or vector, then it uses the equal equality test rather than eq -for detecting the tail of the list. +a non-list sequence, then it uses the equal equality test rather than eq for +detecting the tail of the list. .cblk (ldiff "abcd" "cd") -> (#\ea #\eb) @@ -15710,7 +15710,7 @@ then a copy of .meta list is returned. -These functions also work more generally on sequences. +This function also works more generally on sequences. The .meta list and |