diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-03-10 06:56:46 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-03-10 06:56:46 -0800 |
commit | b06920b9acdc7e4b13dac1696b007aa9d41b46f4 (patch) | |
tree | eb78fe22ba6d9d7fa2b58f409ff8c907b10c02e0 | |
parent | 988e2c754a69ddbcc9f421c674a46495bef93a94 (diff) | |
download | txr-b06920b9acdc7e4b13dac1696b007aa9d41b46f4.tar.gz txr-b06920b9acdc7e4b13dac1696b007aa9d41b46f4.tar.bz2 txr-b06920b9acdc7e4b13dac1696b007aa9d41b46f4.zip |
sort: bugfix: broken for vectors/strings.
* lib.c (sort): Return the copied and sorted object object,
not the original.
-rw-r--r-- | lib.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -9679,7 +9679,8 @@ val sort(val seq, val lessfun, val keyfun) return nil; case SEQ_VECLIKE: case SEQ_HASHLIKE: - sort_vec(copy(seq), lessfun, keyfun); + seq = copy(seq); + sort_vec(seq, lessfun, keyfun); return seq; case SEQ_LISTLIKE: return sort_list(copy_list(seq), lessfun, keyfun); |