diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2024-09-30 19:06:37 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2024-09-30 19:06:37 -0700 |
commit | 23e96e60ed026965251423f90654c0668e9a344c (patch) | |
tree | 83167a80b760644e6a06f41aeb167bddead3ad10 | |
parent | 5d2436503b0a060dfafc22d614f8dcde75a837b7 (diff) | |
download | txr-23e96e60ed026965251423f90654c0668e9a344c.tar.gz txr-23e96e60ed026965251423f90654c0668e9a344c.tar.bz2 txr-23e96e60ed026965251423f90654c0668e9a344c.zip |
refset, replace: adjust diagnostic for unsupported object.
* lib.c (refset, replace): Word the bad object diagnostic in
terms of it not being a modifiable sequence. This covers
cases when the object is something abstractly iterable, like
a range. We don't want to say that it's not a sequence.
-rw-r--r-- | lib.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -13564,7 +13564,7 @@ val refset(val seq, val ind, val newval) } /* fallthrough */ default: - type_mismatch(lit("refset: ~s is not a sequence"), seq, nao); + type_mismatch(lit("refset: ~s is not a modifiable sequence"), seq, nao); } return newval; } @@ -13593,7 +13593,7 @@ val replace(val seq, val items, val from, val to) return replace_obj(seq, items, from, to); /* fallthrough */ default: - type_mismatch(lit("~a: ~s is not a sequence"), self, seq, nao); + type_mismatch(lit("~a: ~s is not a modifiable sequence"), self, seq, nao); } } |