diff options
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 8 |
1 files changed, 2 insertions, 6 deletions
@@ -151,6 +151,7 @@ lookup(Datum var) incref(val->array); /* since the value is now in the var AND in the code */ } val->shy = 0; + traceprint("VAR %S = %S\n", var.symbol->name, ppdatum(*val)); return val; } @@ -225,11 +226,7 @@ nameis(Datum left, Datum right) Datum assign(Datum left, Datum right) { - if(runestrcmp(left.symbol->name, L"⍵") == 0) - throwerror(nil, ESyntax); - else if(runestrcmp(left.symbol->name, L"⍺") == 0 && !left.symbol->undefined) - goto end; - else if(left.symbol->setfn != nil) + if(left.symbol->setfn != nil) left.symbol->setfn(right); else{ if(left.symbol->undefined == 0 && left.symbol->value.tag == ArrayTag) @@ -241,7 +238,6 @@ assign(Datum left, Datum right) incref(right.array); /* for the binding */ } } -end: right.shy = 1; if(right.tag == ArrayTag) incref(right.array); /* for the returned array */ |