wroclaw-git-backups/nix
1
0
Fork 0
mirror of https://github.com/NixOS/nix synced 2025-06-25 14:51:16 +02:00
Code Activity

* Inherited attributes in recursive attribute sets are in scope of the

Browse source 
non-inherited attributes.
This commit is contained in:
Eelco Dolstra 2004-02-16 09:18:35 +00:00
parent 76c0e85929
commit fbc48a469c
2 changed files with 18 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/libexpr/nixexpr.cc
View file

@ -205,8 +205,11 @@ Expr substitute(const ATermMap & subs, Expr e)
for (ATermIterator i(rbnds); i; ++i)
if (atMatch(m, *i) >> "Bind" >> name)
subs2.remove(name);
else
abort(); /* can't happen */
else abort(); /* can't happen */
for (ATermIterator i(nrbnds); i; ++i)
if (atMatch(m, *i) >> "Bind" >> name)
subs2.remove(name);
else abort(); /* can't happen */
return ATmake("Rec(<term>, <term>)",
substitute(subs2, (ATerm) rbnds),
substitute(subs, (ATerm) nrbnds));
@ -264,14 +267,18 @@ void checkVarDefs(const ATermMap & defs, Expr e)
}
else if (atMatch(m, e) >> "Rec" >> rbnds >> nrbnds) {
checkVarDefs(defs
, (ATerm) nrbnds);
checkVarDefs(defs, (ATerm) nrbnds);
ATermMap defs2(defs);
for (ATermIterator i(rbnds); i; ++i) {
if (!(atMatch(m, *i) >> "Bind" >> name))
abort(); /* can't happen */
defs2.set(name, (ATerm) ATempty);
}
for (ATermIterator i(nrbnds); i; ++i) {
if (!(atMatch(m, *i) >> "Bind" >> name))
abort(); /* can't happen */
defs2.set(name, (ATerm) ATempty);
}
checkVarDefs(defs2, (ATerm) rbnds);
}