summaryrefslogtreecommitdiff
path: root/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index a2d4d43..2e9a78e 100644
--- a/eval.c
+++ b/eval.c
@@ -229,6 +229,9 @@ assign(Datum left, Datum right)
if(left.symbol->setfn != nil)
left.symbol->setfn(right);
else{
+ /* re-assign the symbol to one that is sure to be local. This enables shadowing */
+ left.symbol = getsym(left.symbol->name, 1);
+
if(left.symbol->undefined == 0 && left.symbol->value.tag == ArrayTag)
freearray(left.symbol->value.array);
left.symbol->value = right;