Added record extension field punning
This commit is contained in:
parent
fc710d038f
commit
7741b7c4ad
@ -532,8 +532,8 @@ public class Interpreter : AST.IExprVisitor<Env, object>
|
||||
|
||||
}
|
||||
extLabels.Add(label);
|
||||
if (extension.Value == null) throw new NotImplementedException();
|
||||
rec = rec.Extend(label, evaluate(env, extension.Value));
|
||||
var extensionValue = extension.Value == null ? env[extension.Name] : evaluate(env, extension.Value);
|
||||
rec = rec.Extend(label, extensionValue);
|
||||
}
|
||||
|
||||
return rec;
|
||||
|
Loading…
Reference in New Issue
Block a user