forked from lix-project/lix
fix nix repl not overriding existing bindings in :a
previously :a would override old bindings of a name with new values if the added set contained names that were already bound. in nix 2.6 this doesn't happen any more, which is potentially confusing. fixes #6041
This commit is contained in:
parent
fcb33440b6
commit
1daf1babf9
2 changed files with 31 additions and 4 deletions
|
@ -367,15 +367,19 @@ struct StaticEnv
|
||||||
|
|
||||||
void sort()
|
void sort()
|
||||||
{
|
{
|
||||||
std::sort(vars.begin(), vars.end(),
|
std::stable_sort(vars.begin(), vars.end(),
|
||||||
[](const Vars::value_type & a, const Vars::value_type & b) { return a.first < b.first; });
|
[](const Vars::value_type & a, const Vars::value_type & b) { return a.first < b.first; });
|
||||||
}
|
}
|
||||||
|
|
||||||
void deduplicate()
|
void deduplicate()
|
||||||
{
|
{
|
||||||
const auto last = std::unique(vars.begin(), vars.end(),
|
auto it = vars.begin(), jt = it, end = vars.end();
|
||||||
[] (const Vars::value_type & a, const Vars::value_type & b) { return a.first == b.first; });
|
while (jt != end) {
|
||||||
vars.erase(last, vars.end());
|
*it = *jt++;
|
||||||
|
while (jt != end && it->first == jt->first) *it = *jt++;
|
||||||
|
it++;
|
||||||
|
}
|
||||||
|
vars.erase(it, end);
|
||||||
}
|
}
|
||||||
|
|
||||||
Vars::const_iterator find(const Symbol & name) const
|
Vars::const_iterator find(const Symbol & name) const
|
||||||
|
|
|
@ -40,3 +40,26 @@ testRepl () {
|
||||||
testRepl
|
testRepl
|
||||||
# Same thing (kind-of), but with a remote store.
|
# Same thing (kind-of), but with a remote store.
|
||||||
testRepl --store "$TEST_ROOT/store?real=$NIX_STORE_DIR"
|
testRepl --store "$TEST_ROOT/store?real=$NIX_STORE_DIR"
|
||||||
|
|
||||||
|
testReplResponse () {
|
||||||
|
local response="$(nix repl <<< "$1")"
|
||||||
|
echo "$response" | grep -qs "$2" \
|
||||||
|
|| fail "repl command set:
|
||||||
|
|
||||||
|
$1
|
||||||
|
|
||||||
|
does not respond with:
|
||||||
|
|
||||||
|
$2
|
||||||
|
|
||||||
|
but with:
|
||||||
|
|
||||||
|
$response"
|
||||||
|
}
|
||||||
|
|
||||||
|
# :a uses the newest version of a symbol
|
||||||
|
testReplResponse '
|
||||||
|
:a { a = "1"; }
|
||||||
|
:a { a = "2"; }
|
||||||
|
"result: ${a}"
|
||||||
|
' "result: 2"
|
||||||
|
|
Loading…
Reference in a new issue