From 9c93bc20cc68e50461bb086f24f335de9dcc5135 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Sat, 22 Jan 2022 16:53:29 +0000
Subject: =?UTF-8?q?Implement=20=E2=8E=95DIV=20for=20allowing=20division=20?=
 =?UTF-8?q?by=20zero=20to=20result=20in=200=20if=20needed?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 eval.c | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index 1070cb2..86d0d15 100644
--- a/eval.c
+++ b/eval.c
@@ -230,11 +230,9 @@ nameis(Datum left, Datum right)
 Datum
 assign(Datum left, Datum right)
 {
-	if(left.symbol->setfn != nil){
-		int ok = left.symbol->setfn(right);
-		if(!ok)
-			throwerror(nil, ESyntax);
-	}else{
+	if(left.symbol->setfn != nil)
+		left.symbol->setfn(right);
+	else{
 		if(left.symbol->undefined == 0 && left.symbol->value.tag == ArrayTag)
 			freearray(left.symbol->value.array);
 		left.symbol->value = right;
-- 
cgit v1.2.3